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SECTION 1 


INTRODUCTION 


This volume is intended to aid a prospective user to operate the NASA- IBM 
Stream-flow Forecast Model. This includes data preparation, determining 
model parameters, initializing and optimizing parameters (calibration) 
selecting control options and interpreting results. Some background in- 
formation has been included in Section 2. Appendices contain a dictionary 
of variables, a source program listing and flow charts. A bibliography, 
with abstracts, several related documents, and computer programs are to be 
delivered separately. 

The model has been operated for this study on an IBM System/ 360 Model 44, 
using a Model 2250 keyboard/graphics terminal for interactive operation. 

The model can be set up and operated in a batch processing mode on any 
System/360 or 370 that has the memory capacity. The model requires 21 OK 
bytes of core storage, and the optimization program, OPSET (which was used 
previous to but not in this study), requires 240K bytes. The data bank for one 
small watershed requires approximately 32 tracks of disk storage (Model 2314). 

The models described in this report have evolved from the well-known 
Stanford Watershed Models (Crawford and Linsley, 1962; Crawford and Linsley, 
1966; Anderson and Crawford, 1964). These original models were written in 
the BALGOL computer language for the Burroughs Computer at the Stanford 
Research Institute. Since BALGOL is not used extensively, a number of 
FORTRAN translations have been published (James, 1968; Claborn and Moore, 

1970; Ricci, 1972, among others). The translation by James, known as the 
Kentucky Watershed Model, was selected for the previous study and used with 
some modifications. 

The Kentucky Watershed Model is basically a FORTRAN version of the Stanford 
Watershed Model III (Anderson and Crawford, 1964). A few modifications have 
been added from the Stanford Watershed Model IV (Crawford and Linsley, 1966) 
by James for use in Eastern watersheds . A self-calibrating version of the 
KWM (OPSET) was developed and tested by Liou (1970) and applied by James 
(1970) and Ross (1970). 

Modifications introduced by IBM under NASA contract consist principally of 
adding routines for man-machine interfaces, multi-year simulations, statis- 
tical analysis of results, and plot output options. Additionally, shortened, 
variable simulation periods have been introduced for forecast applications. 

For more detailed discussions of the model structure and application, the 
reader is referred to reports by Anderson and Crawford (1964), Crawford 
and Linsley (1966), Liou (1970), Ross (1970), James (1970), Ricci 
(1972 a, b, c), and Striffler (1973). 
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SECTION 2 


SUMMARY DESCRIPTION 

2.1 HYDROLOGIC PHENOMENA IN THE WATERSHED 


That aspect of hydrology known as streanvflow forecasting undertakes to 
predict the outflow from a river basin, in terms of flow rate as a 
function of time, in response to a given precipitation event under given 
initial conditions. This capability is vital to effective planning for 
urban/industrial development, flood control, hydroelectric power, navi- 
gation, and water resources management. 

Figure 2-1 depicts the cross section of a somewhat idealized rural catch- 
ment and identifies the principal phenomena at work in the rainfall-runoff 
relationship. The input (precipitation) is partially intercepted by 
vegetation and water retention areas. Moisture reaching pervious surfaces 
divides among overland flow, infiltration, and evaporation. Through subsur- 
face processes, interflow and groundwater flow contribute ultimately to 
streamflow, with some losses due to transpiration through plant life. In 
certain regions, in winter, moisture is stored in the form of snow in 
portions of the basin, and melts to produce additional moisture movement 
in spring. 

All the phenomena involved in this portion of the hydrologic cycle are 
widely and well understood qualitatively, and several empirical relation- 
ships have been developed from a combination of theory and experiment. 

The relationships are numerous, many of then are nonlinear, and they are 
interrelated. Manual solutions for streamflow by manipulation of such a 
set of equations are inefficient and so time consuming as to be of little 
value in an operational situation. Individuals and organizations respon- 
sible for streamflow forecasting have turned to watershed models as effective 
tools for their work. Development of such models has been facilitated 
by the increasing availability of large, high-speed computers. 

2.2 MOISTURE ACCOUNTING IN THE SIMULATION MODEL 


The streamflow forecast model uses a moisture accounting system to synthe- 
size a continuous hydrograph (a graph of streamflow volume per unit time or 
stream height as a function of time) from the following: 

1. Recorded climatological data, precipitation, evaporation, 
and (for snowmelt situations) temperature, 

2. Measurable watershed characteristics such as drainage area 
and friction of the watershed in impervious surfaces, and 
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Figure 2-1. Cross Section of Idealized Rural Catchn 
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Parameters used in the computation process which are known 
to vary in magnitude among watersheds but have not been 
quantitatively tied to specific measurable watershed proper- 
ties. For example, one parameter indexes the capacity of 
the soil of the watershed as a whole to retain water. 

The third class of inputs requires a trial-and-error series of calibration 
runs to quantify a set of model parameters which will synthesize flows 
with acceptable accuracy. 

Figure 2-2 depicts the accounting of moisture entering the watershed until 
it leaves by streamflow, evapotranspiration, or subsurface outflow. A 
series of relations, each based on empirical observation or theoretical 
description of a specific hydrologic process, is used to estimate rates 
and volumes of moisture movement from one storage category to another, 
in accordance with current storage states and the calibrated watershed 
parameters. The model routes channel inflow from the point where it 
enters a tributary channel to the downstream point for which a hydrographic 
is required. The flow chart provides the basis for the logical inter- 
locking of a set of empirical equations into the algorithm that is at the 
heart of the model . 

2.3 MODEL PARAMETERS AND CALIBRATION 

When a user applies a simulation model to a watershed, there are several 
parameters whose values he must initially guess and subsequently adjust, 
between trial runs of the model and comparisons of synthesized with ob- 
served flows. This trial-and-error calibration requires ingenuity, under- 
standing of the sensitivity of simulated flows to specific parameter 
adjustments. The process is aided greatly by a thorough understanding of 
the hydrologic process and by the guidance published by Crawford and Linsley 
(1962, 1966). Through careful parameter adjustment, one can cause simulated 
flows to approximate recorded flows but never to match them exactly. Several 
combinations of parameter values can produce comparable results from an 
overall viewpoint, and the final choice may well hinge on whether a particu- 
lar comparison emphasizes flood peaks, annual runoff volume, or some other 
hydrographic feature. The final acceptance of a set of parameters may 
depend heavily on subjective factors. 

Figure 2-3 lists the principal inputs (exclusive of control options) used 
by the watershed model to simulate streamflow. Climatological data can be 
obtained from precipitation records or can be hypothetical, the latter 
being useful in generating rainfall -runoff predictions. The inputs classed 
as "overland flow parameters" and "watershed parameters" are readily 
obtainable from analysis and interpretation of images (maps and/or photo- 
graphs). The inputs on the right side of the figure must be estimated by 
a calibration process. 
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Figure 2-3, Simulation Model (KWM) Inputs and Outputs 



In developing OPSET, Liou (1970) provided a tool for calibrating the KWH 
with a minimum of subjective decisions. The parameter optimization concept 
is depicted in flow chart form in Figure 2-4. The input data consists of 
control options and initial conditions as well as the inputs listed in 
Figure 2-5. A simulation is performed, one year at a time. The synthesized 
flows are compared with the observed flows. An objective function is used 
to determine when an optimum set of parameters has been found. If the best 
match has not been achieved, parameters are again adjusted and the simulation 
run again. This sequence is repeated until a satisfactory parameter set 
has been quantified. 

Figure 2-5 also lists the outputs of OPSET, in addition to simulated 
streamflow. (Comparison with Figure 2-3 shows the relationship to the 
simulation model.) These parameters are the most difficult to measure 
directly and are the ones to which simulated flow values are sensitive. The 
calibration process should be based on three separate water years for the 
same basin. Simulation model parameters are then derived by averaging the 
results of the three calibration runs. A minor modification to OPSET has 
been implemented to generate a more precise Base Flow Recession Constant 
(BFRC). As it is presently designed, OPSET estimates parameters which 
produce accurate simulations of major winter storms (with respect to 
flood peak magnitude and timing) but misses summer and autumn storm 
peaks by significant factors. Manual adjustments are required to achieve 
accurate simulation in the latter. An improvement in OPSET efficiency could 
be achieved by modifying it to calibrate on the basis of several consecutive 
years rather than one year at a time. 

Snov/melt parameters have not been treated in the foregoing because OPSET 
does not estimate them. Their quantification is described in Section 4.1. 

2,4 INPUT DATA PREPARATION 

Simulation of a watershed requires (1) acquisition, formatting and 
integration of a historical data base, (2) quantification of some of 
the model parameters from direct observation, measurement and application 
of empirical relationships, and (3) calibration, the adjustment of the 
remaining parameters to achieve an acceptable match between simulated 
(synthesized) and actual streamflow. After calibration, the system may be 
used to predict streamflow resulting from any given precipitation event. 

The historical data base for the system is constructed from the following 
types of data. 
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Figure 2-5. Calibration Program (OPSET) Inputs and Outputs 
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Precipitation records - hourly and daily 

o Stream stage charts - actual strip chart hydrographs 

o Rating tables for conversion of stream stage charts from height 
(feet) to flow rate (cubic feet per second, cfs) 

o Daily streamflow (discharge) records 

o Temperature records - maximum and minimum each day (used with snow 
routine only) 

o Evaporation data - three options: 

- Daily evaporation and monthly pan coefficients; or 

- Total annual evaporation, mean annual number of rainy days and 
estimated potential annual evapotranspi ration; or 

- Average daily evaporation values over ten-day periods through 
the year and monthly pan coefficients. 

o Snowmelt data arrays 

Data are converted from published documents or charts or magnetic tape, 
to digital formats suitable for input to the calibration and simulation 
programs, as described in Section 3. 

2.5 OPERATION 

Once the model parameters and historical data have been integrated into a 
master data bank, actual operation of the models, whether by batch processing 
(over-the-counter or remote job entry) or interactive will depend on the 
configuration, capabilities and procedures of the supporting computer center. 

2.6 OUTPUTS 

There is a variety of outputs available from the multi-year simulation 
program in the NASA- IBM system. The operator and analyst can choose those 
which best suit his needs from the following. 

o A tabulation *bf hourly synthesized streamflow, with daily 
values for the following: 


- peak flow and time of peak 

- snowpack depth 

- snow total moisture density 

- snow albedo index 

- total accumulated negative snowmelt 

- snowpack liquid water content 
o A table of monthly annual totals, 
o A yearly statistical -summary. 

o A table of mean daily reference streamflow, with monthly and 
annual totals. 

o A table of mean daily simulated streamflow, with monthly and 
annual totals. 

o A table of monthly moisture storages and indices. 

o A table of flow duration and error statistics. 

o A list of the 20 highest clock hour rainfall events in the 
water year. 

o A list of the 20 highest clock hour overland flow runoff events 
in the water year. 

o A table of daily soil moisture. 

o A comparison table of storm events, reference and simulated, with 
respect to peak flow, time of peak, and runoff, one table per 
storm event. 

o Total daily and monthly statistical summary. 

o Print-plots for total year, each month and each storm event. 

o Tapes of data for SC-4020 plot outputs for total year, each 
month and each storm event. 
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In the forecast and past-run modes, the following outputs are available 
(see Section 7). 

o Superimposed forecast hydrographs for worst case, forecast and zero 
precipitation. 

o Superimposed simulated and observed hydrographs for past (fine tune) 
runs. 

o Tables of hourly streamflow by day for each forecast case. 

o Table of daily precipitation, surface runoff, interflow, baseflow, 
and stream runoff for each forecast case. 

o Table of peak flow, time of peak, runoff and total precipitation for 
the forecast period for each forecast case. This table also shows 
differences and percent differences between worst case and forecast 
peaks. 

o Table of soil moisture storages at the end of each day of the forecast 
period. 


SECTION 3 


BASIC DATA* 


The input data required to operate the model consists of a minimum basic 
core plus supplemental data required by various control options in the 
program. The various data components will be discussed in the order in 
which the data is read into the program, which is also essentially the 
order in which the data is arranged in the data deck. 

3.1 TIME-AREA-HISTOGRAM DEFINITION 

Both the original Stanford Model IV (Crawford and Linsley, 1966) and the 
Kentucky Watershed Model (Ross, 1970; Liou, 1970) use an empirical routing 
procedure developed by C. 0. Clark (1945). This procedure routes channel 
inflow to the basin outlet using a time-delay histogram. The time-area 
histogram divides the basin into zones of equal travel time by drawing iso- 
chrones on a topographic map. The fraction of the watershed area within 
eash set of isochrones defines the time-area histogram. The procedure for 
determining these zones is outlined below. 


1. Determine the Time of Concentration 


The time of concentration (T c ) is defined as the time 
required for water falling on the most distant part of 
the watershed to reach the outlet via the channel. It 
can be estimated using the empirical equation of Kirpitch 
(Chow, 1964): 


T 


c 


.0078 


L 0 * 77 

^085 


When T c is in minutes; L is the length in feet of the 
basin area measured from the channel outlet along the 
channel, and in a direct line from end of the channel 
to the furthest point in the basin; and S is the ratio 
of the length (L) to the fall in feet from the furthest 
point to the basin outlet. 

2. Determine the average velocity of a flood wave through 
the basin: 



* This section draws heavily on Striffler (1973) for organization 
and interpretation. 
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Select a desired isochrone spacing. Since routing is either 
doneon a 15-minute or hourly basis in the model, the isochrone 
spacing selected should agree with the routing interval. On a 
large watershed, longer intervals will help hold down computer 
time requirements. 

4. From the average velocity, calculate the distance required 
for the water to flow one isochrone distance. For example, 
if the average velocity is 4.0 mph and isochrone interval 
selected is 15 minutes, an isochrone would cross the chan- 
nel every mile above the basin outlet. 

5. Divide the basin into isochrone areas by measuring the chan- 
nel distance between isochrones and determining the watershed 
area contributing- flow to that section of the channel. Planim- 
eter the area between each set of isochrones and determine 

the fraction of basin area in each area. Beginning with the 
isochrone area above the outlet, these fractions represent the 
time-area histogram. Data required by the model includes the 
number of base time routing increments (NBTRI) and the base 
time routing increment (BTRI) data array (see Figure 3-1). 

3.2 SNOWMELT DATA ARRAYS 


If snow and snowmelt are important processes on the watershed and called 
in the model (C0N0PT 7=1), the following data arrays are required. 

FIRR - The fraction of incoming radiation reflected by a snow 
surface as a function of age. 

This is an array of 15 values which is used to adjust snowmelt rates as 
snow surface albedo changes. It is well known that snow surface albedos 
change with age and also with rainfall on the surface. Snow albedos have 
been shown to vary from a maximum of about 0.80 for new fallen snow to a 
minimum of about 0.40 for a ripe snow pack during the melt season. Under 
melting conditions, the albedo can change from the maximum to the minimum 
in about fifteen days (Figure 3-2). This relationship is the basis for the 
FIRR array. Anderson and Crawford (1964) discussed the application of the 
reduction factor in the Stanford Snowmelt Model but didn't discuss how they 
derived the array used. Their data are also plotted on Figure 3-2. In 
this study, adjustment factors v/ere taken directly from the albedo curve. 

A more representative array could be determined if data for a total energy 
budget were available for the watershed. 

RICY - Radiation Incidence over the Calendar Year. 

The RICY data array is an array of 37 values, each representing an adjust- 
ment factor to the snowmelt rate for each 10-day period during the calendar 
year. In the snowmelt model of Anderson and Crawford (1964), snowmelt is 
calculated on the basis of a degree day heat input to the snow pack. 
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FIRR Values 



Figure 3-2. FIRR Array 



Figure 3-3. RICY Array 
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The parameter BDDFSM represents the maximum melt rate which would occur 
during the melt season. However, melt does not occur at the maximum 
rate during the melt season; and since melt is a function of solar energy 
as well as air temperature, the maximum melt rate (BDDFSM) represents 
the maximum input of both sensible heat and solar energy. Anderson (1968) 
calculated degree day melt factors using daily streamflow hydrographs and 
a continuous energy balance calculation for the snow pack. His data show 
a seasonal distribution of melt factors which roughly approximates the 
distribution of solar energy. Anderson (reported by Striffler) suggests 
that the RICY data array should approximate a sine wave with the maximum 
occurring on June 21, and the minimum, about one-fourth the maximum, on 
December 21. A sine wave distribution and the data array used in the 
Stanford Snowmelt Model are shown in Figure 3-3. Desai's data was deter- 
mined from the seasonal distribution of radiation data at Laramie, Wyoming. 

DPSE - Dated Potential Snow Evaporation. 

In the Stanford Snowmelt Model, evapotranspiration and evaporation from the 
snow surface are considered separately. The DPSE data array is the data 
source for snow evaporation and represents daily snow evaporation for 10-day 
periods during the water year. In the calculations, snow evaporation does 
not occur if the daily minimum temperature is greater than 32° or if the snow 
pack total water content is less than the daily potential snow evaporation. 

Anderson and Crawford (1964) derived snow evaporation data using the following 
equation and data from the Central Sierra Snow Laboratory (CSSL) watershed: 




where E is evaporation in inches, b‘ is an empirical constant, V w is the 
wind velocity, Q t is the thermal quality of the snow (percent by weight of 
ice), p a is the vapor pressure of the air in millibars, and p s is the satu- 
ration vapor pressure over the snow. 

3.3 EVAPORATION DATA ARRAYS 

Three different forms of evaporation data can be used in the model 
(CONOPT 3 = 0,1,2). These include daily potential evapotranspiration 
(DPET) values (CONOPT 3=0), average daily potential evaporation values 
for 10-day periods (CONOPT 3 = 1 ) , and an average annual potential evapo- 
transpiration value (EPAET). Although DPET is defined as "dated potential 
evapotranspiration," the Kentucky Report (Ross, 1970) reduces evaporation 
data to lake evaporation which is derived from measured pan evaporation and 
a pan coefficient. Thus DPET values can be measured pan evaporation data or 
calculated potential ET data. Ideally daily pan evaporation data from a pan 
located within or adjacent to the watershed should be used. However, since 
good pan data are rare in most parts of the country and particularly the 
mountain west, calculated PET values, using an appropriate ET formula will 
suffice. 
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In this study, the Hamon Formula (Hamon, 1961) was used: 

PET = C D 2 Pt 

in which PET « potential ET in inches, C is a constant, D is the possible 
hours of sunshine in units of 12 hours, and Pt is the saturated water vapor 
density (absolute humidity) in grams per cubic meter at the mean daily 
temperature. The constant C was adjusted so that calculated PET values 
agreed with a partial pan record in the watershed. 

Although daily values of potential ET are most desirable in the daily 
accounting in the model, averages over 10-day periods can be used if it is 
desirable to reduce the calculation required to assemble daily values. 

DPET values for 10-day periods are input as an array of 37 values. The 37 
values should correspond to the time distribution shown in Table 3-1. 

The third option (EPAET) (CONOPT 3=2) requires an annual potential evapo- 
ration value plus a correction factor for the number of rainy days during 
the year (MNRD). These values can either be measured values for a particular 
year or average values for a number of years. Average values should be used 
for years in which climatic data are not available. Under this option, an 
adjusted annual PET value is calculated and distributed over the water year 
by subroutine EVAPDAY. The EPAET (estimated potential average evapotrans- 
piration) and MNRD (mean number of rainy days) are the only values read, in 
this option. 

If DPET data are read (CONOPT 3 = 0 or 1 ) an array of monthly pan coefficients 
(EPCM) must also be entered. This consists of an array of 12 values com- 
prising the evaporation pan coefficient for each month of the water year. If 
the DPET values are already converted to lake evaporation, or potential evapo- 
transpiration values, pan coefficients should be read as 1.0's. 

3.4 STREAMFLOW DATA 

Daily discharge data is the average volume in cubic feet of water per sec- 
•ond that flows past the stream gage during a 24-hour period. This data 
exists on magnetic tape and/or written tables for all stream gages in the 
Tennessee Valley. The data format which exists on magnetic tape must be 
altered to be compatible with the simulation model. Where the data exists 
in written tables, it is necessary to manually extract that information, 
convert to punched card format, and develop a listing compatible with 
model requirements. 

For operation of the OPSET program, it is necessary to select up to five 
flood hydrographs for each of the years for which the model is to be cali- 
brated. This requires a manual search of precipitation and discharge 
records to select storms useful to the calibration. The digitized input 
data include the number of hydrographs chosen and three parameters related 
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to each hydrograph: day of occurrence of the flood peak, hour of occurrence 

of the flood peak, and flow rate at the peak. These hydrographs parameters 
are essential for the OPSET program to determine watershed model routing 
parameters, so that total flows will represent accurate predictions, with 
respect to the time of occurrence of hydrograph peaks as well as the total 
volume of flow for a given period of time. In practice the selected storm 
hydrograph parameters are not available in daily discharge records. It is 
necessary to obtain them from the strip charts produced by the stream gage 
recorders. Rating tables are also digitized and stored for conversion of 
gage height readings into flow rate. 

The procedure employed to obtain this data requires manual analysis of 
each strip chart and manual recording of the rise and fall of the stream 
gage on an hourly basis. The time frame should extend from midnight of 
the day in which the storm occurred until some time at which the stream 
height returns to or approaches its initial stage. This hourly height 
recording is then formatted for entry into the computer where a subroutine 
will fetch the appropriate rating table into memory and convert the data 
to cubic feet per second. This flood hydrograph data is then in a usable 
form when required by the simulation model. 

3.5 CLIMATIC DATA 

Climatic data required in the model includes data required in the basic 
operation of the model and data required by various optional features of 
the model. These are described in the order in which they are read into 
the model . 

3.5.1 DMXT, DMNT - DAILY VALUES OF MAXIMUM AND MINIMUM TEMPERATURES 

Daily maximum and minimum air temperature is required in the model if the 
snowmelt subroutine is called (CONOPT 7=1). These values are read in as 
an array of alternating maximum and minimum values for each day of the water 
year. Since air temperatures vary over a watershed, recorded temperatures 
from a station (preferably within the watershed) are adjusted by the main 
program to the mean elevation of the basin. Adjusted temperatures are then 
used for the remainder of the calculations involving temperature. 

3.5.2 HOURLY PRECIPITATION DATA 

Hourly precipitation data in digital form is the primary input. In a very 
small watershed having its own hourly precipitation gage, one can (with 
reasonable safety) assume that the gage reading applies uniformly to the 
entire watershed. This assumption (which is implicit in both programs) 
departs from reality more and more with increase in watershed size. It 
has been necessary to implement a method whereby several precipitation 
records are used to synthesize a single hourly rainfall history for each 
watershed or subwatershed. 
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The number of precipitation stations associated v/ith any given watershed 
may vary from one station located twenty or thirty miles from the water- 
shed centroid to five or six stations located within or closely adjacent to 
the watershed boundaries. Typically, a watershed will have one or two 
hourly stations, and one or more daily stations. In addition to the varying 
distances of these stations from the centroid, the reading time for the daily 
stations might be different. It is also quite likely that data will appear 
from the several gages in both magnetic tape and tabular formats. The latter 
must be manually extracted from the tables and converted to punched data card 
format. 

The precipitation gage outputs are assigned weighting factors, using the 
Thiessen technique (Linsley, et al, 1958; Chow, 1964) in accordance with 
their physical locations relative to the basin centroid. A software program 
developed by IBM automatically performs the interpolation and correlation of 
the precipitation data. This 'program accepts all precipitation data, the 
reading time for each daily station, and the v/eighting factor developed from 
the Thiessen Analysis, and produces an hourly precipitation record for the 
applicable water years associated with a given watershed. This hourly pre- 
cipitation data record is then used as one of the climatological inputs 
required by the models. 


SECTION 4 



! 

i 

I 


PARAMETER SELECTION 


The operating parameters required for proper model operation include 
eleven snowmelt parameters, one output parameter, four watershed parameters, 
ten soil via ter parameters, five overland flow parameters, six channel routing 
and ground water parameters, and five starting moisture condition parameters 
(Table 4-1). The parameter values are used in the model as factors or coeffi- 
cients in the various process calculations or as starting points in the 
moisture accounting routines. A number of parameters describe specific water- 
shed characteristics and can be determined from topographic maps, while 
other parameters serve to control process rates and can be estimated from the 
literature. Accurate determination of parameter values is desirable from a 
hydrologic standpoint, since accurate simulation of the various hydrologic 
processes requires selection of parameter values representative of the par- 
ticular watershed being tested. The sensitivity of the model to the various 
parameters varies considerably among the parameters. In some instances, 
small changes to parameters cause large changes in simulation results, while 
other parameters can be varied substantially without affecting simulation 
results significantly. Since in most applications some parameters cannot 
be determined accurately, the customary procedure is to vary the parameters 
until the best fit or output simulation results. This calibration procedure 
can be completely manual or computer aided. 

4.1 SNOWMELT PARAMETERS 


BDDFSM - The basic degree day factor for snowmelt. Although defined by Liou 

(1970) as a degree day melt factor, this parameter is actually a degree hour 

melt factor, since the melt calculation is done hourly throughout the melt 
season. The parameter value represents the amount of melt which will occur 
in one hour for every degree F above a base temperature, usually 32°F, during 
the maximum melt rate season. The maximum melt rate calculated is reduced 
by several other factors, since it is known that degree day melt factors are 
not uniform over a melt season (Corps of Engineers, 1956). This parameter is 
important in determining the timing of snowmelt runoff and the height of 
peak runoff events during the snowmelt season. It is difficult to determine 
for any particular watershed. However, the values used by Anderson and Crawford 

(1964) ranged from .0035 to .0085. This parameter is usually optimized for 

a best fit value. 

SPTWCC - The snow pack minimum total water content for complete basin coverage. 
In mountain watersheds with large elevation differences, considerable snow 
accumulation can take place on the upper watershed before the entire watershed 
is covered. This parameter attempts to define the water content at the point 



Figure 4-1. Calibration Methodology 



Table 4-1 - Parameters Required in the Kentucky 
Watershed Model 


Snowmelt Parameters 


BDDFSM 

SPBFLW 

SPTWCC 

SPM 

ELDIF 

XDNFS 

FFOR 

FFSI 

MRNSM 

DSMGH 

PXCSA 


Basic degree day factor for snowmelt. 

Snowpack basic maximum fraction in liquid water. 
Snowpack minimum total water for complete basin cover 
Snow precipitation multiplier. 

Elevation difference between base temperature station 
and mean basin elevation. 

Index density of new fallen snow. 

Fraction of the watershed forested. 

Fraction of snow intercepted. 

Maximum rate of negative snowmelt (chilling). 

Daily snowmelt from ground heat. 

Precipitation index for changing snow albedo. 


Output Parameter 


RMPF - Requested minimum daily peak flow to be printed. 


Watershed Parameters 


R6PMB - Recording gage precipitation multiplier. 

AREA - Area of the watershed. 

FIMP - Fraction of watershed covered by impermeable surfaces 

FWTR - Fraction of watershed covered by water surfaces. 

Soil Water Parameters 


VINTMR - Vegetation Interception, maximum rate. 

BUZC - Basic upper zone storage capacity factor. 

SUZC - Seasonal upper zone storage capacity factor. 
LZC - Lower zone storage capacity. 

ETLF - ET loss factor. 

SUBWF - Subsurface water flow out of the basin. 

GWETF - Ground water evapotranspi ration factor. 

SIAC - Seasonal infiltration adjustment factor. 

BMIR - Basic maximum infiltration rate within basin. 
BIVF - Basic interflow volume factor. 

Overland Flow and Interflow Parameters 


OFSS - Overland flow surface slope. 

OFSL - Overland flow surface length, 

OFMN - Manning's n for overland flow. 

OFMNIS - Manning's n for impervious surface. 

IFRC - Interflow recession constant. 



Channel Routine and Groundwater Parameters 


CSRX - Channel Storage routing index. 

FSRX - Flood plain storage routing index. 

CHCAP - Channel capacity indexed to basin outlet. 

EXQPV - Exponent of flow proportional to velocity. 

BFNLR - Base flow nonlinear recession adjustment factor. 
BFRC - Base flow recession constant. 

Starting Moisture Values as of Oct. 1. 


GWS - Current groundwater storage. 

UZS - Current upper zone storage. 

LZS - Current lower zone storage. 

BFNX - Current value of base flow recession index. 
IFS - Current interflow storage. 


*> 
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the entire basin becomes covered with snow. The parameter is used to adjust 
snowmelt for incomplete snow cover on the basin. When the water equivalent 
is less than the parameter index value, it is assumed that the snow covered 
area is proportionately less and melt is adjusted accordingly. This parameter 
is generally estimated and optimized for a best fit. A knowledge of snow 
pack water contents and accumulation patterns on the watershed is essential 
to assign a realistic value to the parameter. 

SPM - The snow precipitation multiplier. If simulated snowmelt runoff is 
consistently lower than measured runoff, it is reasonable to assume that the 
precipitation gages are not as efficient in measuring snow catch as rain. 

This occurs frequently for gages in exposed sites or non-shielded gages. 

This parameter attempts to adjust for this difference by increasing the 
hourly precipitation value for all snowfall events. This parameter is 
estimated and optimized for a best fit. 

ELDIF - The elevation difference between the base thermometer and the mean 
basin elevation. This parameter provides an elevation adjustment for tem- 
perature data. Since temperature stations on mountain watersheds are 
generally located at more accessible sites, usually low on the watershed, a 
temperature adjustment to estimate mean basin temperature from measured 
station temperature is required. The parameter, expressed in thousands of 
feet, is easily determined from a topographic map of the watershed. The 
parameter is positive if the station is below the mean basin elevation. 

XDNFS - Index density of new-fallen snow. Since the snowmelt subroutine 
maintains a running account of snow depth, it is necessary to know the 
density of new snow accumulation to the snow pack. New snow density values 
ranging from 0.004 to 0.34 have been reported (Gray, 1970). Anderson and 
Crawford (1964) used a density value of 0.05 based on CSSL data (Corps of 
Engineers, 1956). 

FF0R - Fraction of watershed forested. This parameter, called Net Forest 
Cover by Anderson and Crawford (1964) is defined as the area of forest cover 
times the average cover density. Thus, a knowledge of the proportion of forest 
cover plus the average density of the forest is required to estimate this 
parameter. The proportion of forest cover on a watershed can easily be 
determined from cover type maps or aerial photographs. For larger watersheds, 
satisfactory estimates can be obtained from the USGS topographic quandrangle 
maps with the green forest cover overprint. An estimate of the average canopy 
density on the watershed is more difficult, although satisfactory estimates 
can be obtained from cover type maps and aerial photographs. This parameter 
is important in that it determines snow interception losses and snowmelt 
adjustments due to reflected radiation. 

FFSI - Fraction of snow intercepted. This parameter is defined as the 
proportion of snow which would be intercepted by a forest canopy if the 
cover density were 100 percent. This assumes that the amount of snow inter- 
cepted is a linear function of the total snowfall. This may be true to a 


point but for very large snowfalls or snowfall events accompanied by strong 
winds, the assumption does not hold. Leaf and Brink (1973a) calculated snow 
interception of spruce-fir and lodgepole pine forests as 0.15 and 0.10 re- 
spectively of the snowfall for canopy densities up to a maximum of 0.30 and 
0.20. Anderson and Crawford (1964) use a value of 0.15 for sub-alpine water- 
shed in the Sierras. 

MRNSM - The maximum rate of negative snowmelt (chilling). This parameter 
represents the rate at which liquid water in the snow pack will refreeze 
when the air temperature falls below freezing. Since the parameter as de- 
fined is used empirically to calculate chilling and negative melt, it is 
best determined by estimating an initial value and optimizing for a best fit. 
Anderson and Crawford (1964) used values ranging from 0.006 to 0.016 for the 
various watersheds used in their report. The parameter is important in that 
it controls the rate and timing of snowmelt. Increasing the value will delay 
the snowmelt hydrograph. 

DSMGH - The rate of daily snowmelt from ground heat. T Ms parameter is an 
estimate of the amount of water released from the snow pack to the soil from 
ground heat above. The subroutine assumes that this is a constant rate 
throughout the season, although in fact it will vary depending upon the 
depth of the snow pack and the time of'year. In those areas where the snow 
pack is not deep enough to prevent soil freezing, the parameter would be zero. 
Literature values cited for this parameter are in the order of 0.02 inches 
per day. Anderson and Crawford used values between 0.0 and 0.02. A value of 
0.01 or 0.02 will maintain soil moisture contents and help to maintain a 
base flow during the winter months. 

PXCSA - Precipitation Index for changing snow albedo (inches). In the snow- 
melt subroutine the maximum snowmelt rate as determined by the basic degree 
hour factor is adjusted for shortwave radiation inputs and changes in the 
albedo of the snow pack. Various processes will affect the albedo of the snow- 
pack including aging and the deposition of fresh snow or rain on the pack. 

The deposition of fresh snow deposit on the snow pack will increase the albedo, 
while a rain on a snow pack will decrease the albedo. In the accounting pro- 
cedure, the snowmelt adjustment factor (FIRR) is increased or decreased 
whenever an index value of new snow or rain is reached. The parameter, PXCSA, 
represents the index value for determining when changes in the albedo occur. 
Since the parameter is empirical and does not necessarily represent actual 
conditions, it is best determined by estimating and optimizing for a best fit. 
Anderson and Crawford used an index value of 0.2 inches. 

4.2 OUTPUT PARAMETER 

RMPF - Requested minimum daily peak flow to be printed. This parameter simply 
controls the printed output of storm hydrographs by specifying a minimum dis- 
charge level below which storm hydrographs will not be printed. The parameter 
does not enter into any one of the calculations and is used primarily to limit 
paper output. 


4.3 WATERSHED PARAMETERS 


R6PMB - Recording gage precipitation multiplier - basic. This parameter 
permits adjustment of the precipitation data. If, during the calibration 
procedure it is observed that simulated stream discharge values are con- 
sistently high or low, it may be due to a consistent under or over esti- 
mation of precipitation gage data which may be corrected by this parameter. 
The parameter, then, represents a ratio between average basin precipitation 
and precipitation at the recording rain gage station. 

AREA - Area of the watershed (square miles). The area of the watershed may 
be determined from aerial photographs or good quality topographic maps 
such as the USGS 1:12500 quandrangle maps. For gaged watersheds, the area 
may be taken directly from the v/ater supply papers. 

FIMP - Fraction of impervious surface on the v/atershed. This parameter 
refers to the proportion of watershed area which may be considered as imper- 
vious to water intake and contributes its runoff directly to channel flow. 

For most rural or mountain watersheds, this factor will be near zero unless 
large areas of rock outcrops occur. For urban watersheds, the parameter 
may be much greater. The parameter is difficult to determine, although 
aerial photographs and cover type maps may be helpful. A good knowledge 
of the character of the watershed is also helpful. 

FWTR - Fraction of watershed covered by water surface. This parameter refers 
to the proportion of water surface on the watershed including lakes, ponds, 
and the area of stream surface. In the calculation it is used to determine 
the proportion of the v/atershed at which evaporation occurs at the potential 
rate. It may be estimated using aerial photographs or maps. Ricci (1972) 
suggests a technique from Linsley et al. (1949) to estimate the surface area 
of a channel system as follows: 


A = 



in which A = water surface area 

B = Channel width at outlet 
L = total channel length. 

4.4 SOIL WATER PARAMETERS 

VINTMR - The maximum volume of interception by vegetation (inches). This 
parameter refers to the maximum volume of water which will be caught and 
held by a vegetation canopy during a period of rainfall. Ricci (1972) and 
Ross (1970) both use the table of values suggested by Crawford and Linsley 
(1966). 


Table 4-2. Interception Values 

for Various Cover Types 

Watershed Cover 

VINTMR (inches) 

Grassland 

0.10 

Moderate Forest Cover 

0.15 

Heavy Forest Cover 

0.20 


Ross (1970) indicates that the parameter was not particularly sensitive 
and therefore was not optimized. Sensitivity analyses performed by IBM 
in recent studies support this conclusion. 

BUZC - Basic Upper Zone Storage Capacity Factor. This parameter is an 
index for estimating the storage capacity of the soil surface to store 
water in depression storage. The parameter is usually estimated initially 
and optimized for a best fit. Ross (1970) found best fit values ranging 
from 0.43 to 7.42 for 17 rural watersheds. He also observed a probable 
relationship between BUZC and the average overland slope, forest cover, and 
permeability of the "A" Horizon. Clarke (1968) suggested initial values of 
BUZC ranging from 0.10 to 1.65. Other values reported range from 0.5 to 
3.0 Ricci (1972). Sensitivity studies by Ricci (1972) and Ross (1970) 
indicate that BUZC is not a sensitive parameter with respect to simulated 
runoff and is used primarily for fine tuning the model. 

Crawford and Linsley (1966) suggested a relationship between BUZC and LZC 
for various slope and cover conditions (Table 3.3). 

SUZC - Seasonal upper zone storage capacity factor. The seasonal upper 
zone storage capacity factor is essentially an index to adjust the BUZC 
index for seasonal variation. For example, growth of ground vegetation 

Table 4-3. Approximate Relationship Between BUZC and LCZ (Crawford and 
Linsley, 1966) 


Surface Characteristics 


BUZC 


Steep slopes 

Limited vegetation 0.06 LZC 

Low depression storage 

Moderate slopes 

Moderate vegetation 0.08 LZC 

Moderate depression storage 

Heavy vegetation or forest cover 

Soil subject to cracking 0.14 LZC 

Mild slopes 

High depression storage 


or cultivation of fields may increase the upper zone storage during the 
summer season. SUZC, like BUZC, is estimated and optimized for a best 
fit. Ross (1970) reported values ranging from 0.35 to 6.63 for 17 rural 
watersheds, and observed that higher values of SUZC were associated with 
more porous soil types. Sensitivity studies by Ricci (1972) indicate that 
increasing SUZC values will decrease simulated summer storm peaks and run- 
off volumes. 

LZC - Lower zone storage capacity (inches). This parameter is essentially 
an estimate of the average water holding capacity of the soil. Ross (1970) 
found a close correlation between LZC and the plant available water capacity. 
Ricci (1972) defined LZC as the volume of water which may be stored in the 
soil between the ground surface and the water table, including water draining 
to ground water. LZC is therefore closely related to the texture of the soil 
and the depth of the soil mantle. Clarke (1968) suggests that LZC may be 
estimated as 20 percent of the soil depth. Crawford and Linsley (1966) 
suggest the following criteria: 

For Seasonal Rainfall 

LZC = 4 + 0.5 (Mean Annual Rainfall) 

For Uniform Rainfall 

LZC = 4 + .0125 (Mean Annual Rainfall) 

A knowledge of the water holding capacity of the soils in a watershed 
should be of considerable help in estimating LZC. Leaf and Brink (1973b) use 
a water holding capacity of 5.3 inches for a sub-alpine watershed in Central 
Colorado. LZC is a highly sensitive parameter in simulating streamflow. 
Increasing LZC degrees volume of flow, storm peaks, and snowmelt hydrograph 
peaks. 

ETLF - Evapotranspi ration loss factor. The ETLF is described as an index 
.used to determine the maximum evapotranspiration (ET) opportunity on the 
watershed. The evapotranspiration opporutnity is described as contolling ET 
losses from the lower zone storage (LZS). A number of assumptions are in- 
volved in calculating ET from lower zone storage. First, it is assumed that, 
on a given day, the ET opportunity will vary over the watershed from zero 
to some maximum value. The distribution is assumed linear. The maximum rate 
is determined from the equation: 

Maximum Rate = ETLF * LZS/ LZC 

Thus, for drier soil condition, the maximum rate or maximum ET opportunity 
will be low; but when the soil is at field capacity, the opportunity will 
equal ETLF. 

Crawford and Linsley (1966) suggested initial ETLF values for the following 
watershed covers. 
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Table 4-4. ETLF Value for Various Cover Types 


Cover Type 


ETLF 


Barren Ground 

0.20 

Grassland 

0.23 

Light Forest 

0.28 

Heavy Forest 

0.30 


However, Ross found optimum values ranging from 0.78 to 0.10 for his 
seventeen rural watersheds, although only two were greater than 0.35. He 
found a relationship between ETLF and the overland flow surface slope (OFSS) 

and the presence or absence of forest cover on the flood plain. In general, 

ETLF decreased sharply with an increase in slope. 

Ricci (1972) indicates that yields are sensitive to changes in the parameter 
and storm peaks are moderately sensitive. Increasing ETLF reduces both yields 
and storm peaks. 

SUBWF - Subsurface water flow out of the basin. This parameter refers to 
the fraction of water entering ground water storage and leaving the basin 
through the subsurface flow bypassing the stream gage, Ross (1970) suggests 
this parameter be estimated and optimized for a best fit. The parameter is 
usually set at zero unless there is strong evidence that ground water losses 

occur. A knowledge of the geology of the basin will be helpful in determin- 

ing potential losses. 

GWETF - Ground water evapotranspiration factor. This parameter provides an 
adjustment to basic ET rates to account for direct plan use of water from 
ground water. Examples would be watersheds with significant areas of 
phreatophytes or swamps. The parameter is the fraction of the watershed area 
covered with swamp or wetland vegetation. This factor is generally zero for 
most watersheds. This parameter would probably have the same effect as ETLF, 
'decreased yields and peak flows, as the parameter is increased. 

SIAC - Seasonal infiltration adjustment constant. This parameter is an 
index to adjust infiltration rates for seasonal variation. In general, 
summer infiltration rates are higher than winter rates. Ross (1970) de- 
termined a relationship between SIAC and the percent of forest cover on the 
watershed which he suggests as a guide to determine SIAC values. 


Table 4-5 Estimates of SIAC by Percent Forest Cover (From Ross r 1970) 


SIAC 

— — . " ~ 

Percent Forested Area 

.15 

0-20 

.50 

21 - 60 

.70 

61 -100 
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Values reported by Ross (1970) for his 17 rural watersheds ranged from 0.03 
to 3.63. Values reported by Ricci (1972) for a number of other studies ranged 
from 0.2 to 4.0. It is suggested that an initial value be selected and the 
parameter optimized for a best fit. 

EMIR - Basic maximum infiltration rate. The Stanford Watershed Model in- 
filtration calculation is based on the assumption that infiltration rates 
within a watershed vary considerably and that this range of rates is distributed 
linearly from zero to some maximum value at some point on the watershed. 

The parameter EMIR is used to determine this maximum rate. Crawford and 
Linsley (1966) suggest values ranging from 0.3 to 1.2. Clarke (1968) suggests 
that the parameter is approximately twenty percent of the soil permeability J 
Values reported by Ross ranged from 0.27 to 14.29. Values reported by Ricci 
(1970) for a number of other studies ranged from 0.65 to 3.25. 

The parameter is important since it determines the basic division between 
surface runoff and infiltration to interflow, soil water, and ground water. 

As such, it is highly sensitive in the model. Increasing BMIR will cause a 
decrease in yield and peak flow, and an increase in interflow recession and 
base flow recession. 

BIVF - Basic interflow volume factor. This parameter is an index which 
controls the time distribution and volume of water entering interflow. It 
is assumed that, at any point in time, there is a maximum infiltration 
capacity at some point on the watershed and that the infiltration capacity is 
distributed linearly over the watershed from the maximum rate to zero. The 
maximum rate is a function of soil storage capacity, current infiltration 
rates, and current interflow rate. The current interflow volume multiplier 
(CIVM) is defined as the product of BIVF and soil storage (LZS/LZC). In- 
creasing the parameter, BIVF, thus increases the portion of water going into 
interflow. This decreases peak flows and increases base flows or recession 
flows. BIVF is difficult to estimate. Crawford and Linsley (1966) indicate 
that the value ranges from 0.5 to 3.0 and is adjusted on a trial -and-error 
basis. Ross (1970) using optimization procedures, found BIVF values ranging 
from 0.0 to 3.91. Of his 17 rural watersheds, 14 had no evidence of interflow 
which was attributed to the small size of his watersheds. Ricci (1972) re- 
ported values ranging from 0.65 to 4.5 from a number of other studies. His 
studies indicated that BIVF is not a sensitive parameter with respect to 
simulating runoff. However, it appears to be important in adjusting peak flows 
and recession rates in Rocky Mountain Watersheds where interflow volumes are 
a significant proportion of the total yield. 

4.5 OVERLAND AND INTERFLOW PARAMETERS 


0FSS - Overland Flow Surface Slope. This parameter is defined as the average 
slope of the overland flow surface (inches per foot) and is usually determined 
from topographic maps of the watershed. Ross (1970) suggests randomly 
selecting points on the watershed and determining the slope at those points. 

In this study a one-half mile grid was superimposed on the watershed and the 
average slope of the overland flow path passing through each point was de- 
termined by measuring the length of the flow path and the elevation change 
along the flow path. The average of these values was taken as the overland 
flow surface slope. 

^Ross found that BMIR = 2.3595 P/\ where pj\ is the permeability 
of the A horizon. 
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OFSL - Overland flow surface length. The average length of the overland 
flow path (feet) is taken as the average length of the flow surface from a 
divide perpendicular to the contour to the nearest channel. This parameter 
is also measured on topographic maps. In this study, the length of the flow 
distances passing through each of the grid points was measured and averaged to 
obtain the parameter. A degree of judgement is required to determine whether 
topographic depression represents channels or not. 

In this study neither the OFSS or OFSL parameters are considered critical 
since, in sub-alpine watersheds, overload flow is considered a rare event. 
However, in the interest of simulating the hydrologic performance of the basin, 
the parameter should be measured as accurately as possible. 

A sensitivity study by Ross (1970) in which OFSL was changed from 100 to 1,000 
feet, increased infiltration opportunity, and slightly increased baseflow and 
interflow and decreased runoff changes were slight. 

0FMN - Manning's n for overland flow. Manning's n for overland flow is used 
in the overland flow calculation to determine the equilibrium flow depth and 
the rate of discharge from overland flow surfaces. The roughness coefficient 
n is generally taken from published tables of n values. Ross (1970) presented 
a table of n values ranging from .013 for smooth asphalt to .100 for heavy 
timber. These do not agree with values given by Crawford and Linsley (1966) 
and Ricci (1972) who give values ranging from 0.012 for smooth asphalt to 
.400 for forest litter and dense shrubbery. The original table from Crawford 
and Linsley (1966) is presented here. 

Table 3.6 Manning's Roughness Value for Overland Flow for Various 
Surface Types (From Crawford and Linsley, 1966). 


Watershed Surface 


Manning's n 


Smooth Asphalt 

0 , 

.012 

Asphalt or Concrete Paving 

0 , 

.014 

Packed Clay 

0 , 

.03 

Light Turf 

0 

.20 

Dense Turf 

0 , 

.35 

Dense Shrubbery and Forest Litter 

0 . 

,40 


0FMNIS - Manning's roughness coefficient for overland flow from impervious 
surfaces. This parameter is estimated as discussed above and may be de- 
termined using the same table. 

IFRC - Interflow recession constant. This parameter controls the rate 
at which water moves through the upper soil zones. It can basically 


be defined as the ratio of the interflow discharge on any day to the inter- 
flow discharge of the previous day. Various methods of estimating are 
available. Barnes (1940) suggests a graphical hydrograph analysis method. 

Ross (1970) uses a least squares method of estimating IFRC (James and Thompson, 
1970) and reported values ranging from .100 to .403. However, he indicated 
that interflow was a minor flow component on his watersheds and that a mini- 
mum value of .400 is required to produce interflow in the model. Other 
literature values reported by Ricci (1972) range from .001 to .82. The para- 
meter is of slight importance on small watersheds where interflow volumes are 
small but considerably more important on large mountain watersheds with large 
snowmelt components. 

If recommended procedures for determining the parameter are not used, it can 
be initially estimated and optimized for a best fit. 

4.6 CHANNEL ROUTING AND GROUND WATER PARAMETERS 


CSRX - Channel storage routing index. CSRX is a streamflow routing parameter 
used to account for channel storage effects when channel storage is less than 
one-half of capacity (CHCAP). In the calculations, the channel system is 
considered as a reservoir with an outflow and inflow, and temporary storage 
occurring throughout the length of the channel: 


' Q 2 = I - CSRX (I - Q 1 ) 

where Q 2 is the outflow at the end of a time interval, Q-j is the outflow at 
the beginning of the time interval and I is the average inflow during the 
interval. For a channel with no inflow during the interval, CSRX is essentially 
equal to the recession rate for the interval. 

CSRX can be determined using graphical methods or the equation (Ricci, 1972): 


CSRX = 


K - C,5t 
K + O.St 


Where t is the routing period and 


K = -Q/ 


dQ 

dt 


Where dQ/dt is the slope of a line tangent to the hydrograph at the point of 
contraflexure, and Q is the rate of surface runoff at the point of contraflexure. 


i 
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Ross (1970) reported CSRX values ranging from 0.887 to 0.962 for his 17 
rural watersheds. It is satisfactory to estimate the parameter and optimize 
for a best fit. Increasing the value of CSRX will decrease small flood peaks. 

FSRX - Flood storage routing index. FSRX is a streamflow routing parameter to 
adjust for channel storage plus flood-plain storage when streamflows are 
greater than twice the Channel Capacity (CHCAP). When large flows are to be 
routed, the program substitutes FSRX for CSRX. For streamflow values between 
one-half CHCAP and two CHCAP, the program interpolates values between FSRX 
and CSRX. Increasing FSRX decreases large flood peaks. FSRX is determined 
following the same procedure as outlined above for CSRX. Values for FSRX can 
also be estimated and optimized for a best fit. However, it is necessary to 
optimize on data which includes flood flows exceeding twice the channel 
capacity. 

CHCAP - Channel capacity indexed to the basin outlet. CHCAP is defined as the 
flow at the mouth of the channel (gaging station) which is associated with 
wide spread flooding occurring on the tributary channels. It is not necessarily 
the flow at which the channel at the gaging station begins to overflow. In 
the calculation it is used as a reference base to determine at which point to 
make adjustments in the channel storage volume. 

CHCAP can be determined from a hydraulic analysis of the channel dimensions 
(cross section and profile). Ross (1970) also suggests estimating the gage 
height at a bank full flew from a topographic map. For streams with a USGS 
gaging station at the simulation point, a base flooding is usually listed in the 
USGS water supply papers reporting streamflow at the station. This base value, 
which is used by the USGS in determining a "base" for reporting flood flows, can 
be used directly in CHCAP. 

EXQPV - Exponent of flow proportional to velocity. This parameter is an 
exponent used in control option 13 (subroutine RTVARY). Its primary function 
is to cause flood flows to move downstream faster with the result that storm 
peaks are magnified. Ross (1970) indicates that Leopold and Haddock (1953) 
recommend a value of 0.1 for EXQPV but that 0.25 seems to work better. 

BFNLR - Base flow nonlinear recession adjustment factor, Some watersheds 
demonstrate a non-linear ground water recession rate. This may be determined 
by plotting the ground water depletion hydrograph on a semi-log graph. If 
the depletion rate is linear, a straight line plot will result. BFNLR is a 
parameter which permits adjustment to the base flow recession coefficient 
where a nonlinear depletion is encountered. 

The parameter is generally estimated on a trial and error basis. Ross (1970) 
and Liou (1970) suggest setting the initial value of BFNLR at 1.0 and testing 
the model to see whether additional adjustments are required. Liou (1970) 
suggests a method of determining nonlinearity in the base flow recession curve 
using the distribution of BFRC values calculated for different time intervals 


(flow regimes). Ross (1970) suggests that BFNLR values should seldom be 
dropped below 0.90 although values as low as 0.36 have been reported in the 
literature (Ricci, 1972). 

BFRC - Base flow recession constant. BFRC determines the rate at which base 
flow recedes as ground water supplies decrease. The parameter may be defined 
as the ratio of base flow at the end of a twenty-four hour period to the base 
flow at the beginning of the period. BFRC may be determined using the graphical 
technique of Barnes (1940). Ross (1970) and Liou (1970) in the 0FSET version 
of the Kentucky Watershed Model, use a least square method of calculating the 
parameter (James and Thompson, 1970). For watersheds with stratified aquifers 
supplying water to the stream at different rates, a method of multiple recession 
constants has been developed by Owen (1970). In SD0PTM, where BFRC is optimized, 
it is possible to estimate an initial parameter value and optimize for a best 
fit. 

Sensitivity studies by Briggs (1969) indicates that BFRC is an important para- 
meter in simulating peak flows, interflow recession, and base flow recessions 
(Ricci, 1972). Increasing the parameter value decreases peak flows and inter- 
flow recessions and increases base flow recessions. 

4.7 STARTING MOISTURE VALUES AT THE BEGINNING OF THE FORECAST PERIOD 

GWS - Current ground water storage (inqhes). This parameter sets the beginning 
value of ground water storage for the moisture accounting routine. A knowledge 
of ground water conditions on the watershed at the beginning of the year should 
be helpful in determining this value. However, since this type of information 
is not available on many watersheds, particularly high mountain watersheds, it 
is usually necessary to estimate a value and adjust it in subsequent runs until 
it "fits." A knowledge of the rainfall/runoff pattern for the month preceding 
October 1 should also be helpful in setting initial values. Liou (1970, p. 41) 
outlines a procedure for estimating GWS, based on the recorded October 1 
streamflow. 

UZS - Current upper zone storage (inches). UZS is the beginning value of upper 
zone water storage which includes water intercepted on the surface and/or held 
in depression storage. This value is generally set at zero unless a storm has 
occurred in the day or two preceding October 1. The value selected should 
fall between BUZC and zero depending upon the time since the last rain and the 
amount of rain in the last storm. 

LZS - Current lower zone storage (inches). LZS refers to the beginning value 
of soil water storage and should be some value between LZC and zero. Again, 
considering the rainfall pattern for a week or tv/o prior to October 1 should 
be helpful in estimating LZS. If a rain large enough to recharge part of the 
soil profile has occurred, this should be reflected in the initial estimate. 

Liou (1970) indicates that LZS is a certain proportion of LZC and that changes 
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in LZC during optimization should be accompanied by proportional changes in 
LZS. Liou also presents an empirical technique for estimating beginning 
values of LZS. 

BFNX - Current value of the ground water slope index. Ross (1970) and Liou 
(1970) define this parameter as the current value of the Base Flow Nonlinear 
Recession Index. However, the definition of Crawford and Linsley (1966) and 
Ricci (1972) as the slope of the ground water seem to describe the parameter 
more appropriately. This parameter is multiplied by the Base Flow Nonlinear 
Recession Adjustment Factor in the calculation to provide the adjustment for 
variable recession rates. Ross (1970) suggests an initial approximation of 
the value is to set BFNX equal to GWS. Briggs (1969) suggests that initial 
values should be set between 0.15 and 0.25. Other values reported have ranged 
up to 1.56 (Ricci , 1972) . 

IFS - Current value of interflow storage (inches). This value represents the 
water in interflow storage at-the beginning of the water year and should fall 
between zero and the Basic Interflow Volume Factor (BIVF). The parameter 
should be set at zero unless a rain has occurred within several days prior to 
October 1 . 

Note : If simulation is being run over a number of years, the starting moisture 

values for each year except the first are given in printout for the previrus 
year as the ending moisture condition. 

4.8 OPTIMIZATION 

The process of parameter calibration, using a computer program such as 
0PSET (Liou, 1970), was described previously in Section 2.3. The program 
as developed and documented by Liou has been changed very little in previous 
uses by the IBM study team. In the study reported here it ms not used at 
all; the Town Creek model had been calibrated previously. The following 
additional information is given to assist the reader who may wish to apply 
the model to another watershed. 

4.8.1 PARAMETERS OPTIMIZED 

The optimization process, a combination of automatic calibration and manual 
adjustments, as summarized previously, is used to quantify the following 
simulation model parameters. 

1. BFRC, Base Flow Recession Constant, governs the rate at which 
groundwater flow recedes in the model. 

2. IFRC, Interflow Recession Constant, governs interflow recession. 

3. BUZC, Basic Upper Zone Capacity, is an index for estimating the 
capacity of the soil surface (upper zone) to store water 

in interception and depression storage. 

4. SUZC, Seasonal Upper Zone capacity adjustment constant, is used 
to adjust upper zone variations in vegetation and cultivation. 
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5. LZC, Lower Zone Capacity, is an estimate of the capacity of the 
basin soil to hold water. Decreasing LZC in the model has the 
effect of increasing synthesized runoff. 

6. BMIR, Basic Maximum Infiltration Rate, is the index used to control 
the basic rate of moisture infiltration. This is a parameter 

to which simulation accuracy is very sensitive, particularly as it 
affects storm peaks. 

7. SIAC, the Seasonal Infiltration Adjustment Constant, is an 
evaporation-infiltration factor relating infiltration rates 
to evaporation rates to account for more rapid infiltration 
during warmer periods. 

8. ETLF, Evapotranspiration Loss Factor, is an index used to estimate 
the maximum rate of evapotranspiration which could occur within 
the watershed under current conditions of soil moisture content. 

9. BIVF, Basic Interflow Volume Factor, controls time distribution 
and quantities of moisture entering interflow. Increasing BIVF 
tends to reduce storm runoff peaks and extend hydrograph recession 
limbs. 

10. NCTRI, Number of Current Time Routing Increments, is the number 
of subareas into which the basin should be divided, given 15 
minutes or one hour separation between isochrones. 

11. CSRX, Channel Storage Routing Index, is used to account for 
channel storage when channel flows are less than half of chan- 
nel capacity (CHCAP). Channel storage effects are simulated by 
having the hydrograph time routed to the mouth of the watershed 
through an imaginary reservoir. 

12. FSRX, Flood plain Storage Routine Index, is used to account for 
channel storage plus flood plain storage when streamflows are 
greater than twice the channel capacity. Between one-half and 
twice channel capacity, the program interpolate values between 
FSRX and CSRX. 

13. CHCAP, Channel Capacity, is that value of streamflow, measured 
at the gage, at which a transition is made from channel routine 
to flood plain routine. In mountainous watersheds, this is not 
an oritical parameter, and OPSET seldom adjusts it. 

After OPSET has adjusted the parameters listed above to achieve a "best 
match" based on mean daily streamflow, it is usually found that synthesized 
flood peaks fail to match observed peaks, in magnitude and/or time. Since 
the study attempted to address as wide a variety of applications as practi- 
cable, some manual "fine tuning" was undertaken to achieve an acceptable match 
between synthesized and observed flood peaks while maintaining an acceptable 
correlation between synthesized and observed mean daily and monthly flows. 
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This manual adjustment process requires some knowledge of the hydrologic 
processes occurring in the watershed and some subjective judgment. No firm 
rules or recipes have been developed, but the following are useful guidelines. 

1. Overall results are affected by soil moisture capacities and 
infiltration rates (LZC, BUZC, BMIR) and their related seasonal 
adjustment constants (SUZC, SIAC). 

2. Initial storages (LZS and UZS) can be varied to improve accuracy 
in the first two months of the multiyear simulation. 

3. Summer storm peaks are affected more than winter storm peaks 
by changes in SIAC and SUZC, and the latter has more influence 
on mean daily flow in drier months than the former. 

4. Consistent phasing errors (differences in times of occurrence between 
synthesized and observed flood peaks) can usually be reduced by 
adjustment if the number and sizes of subareas in the time-area 
histogram. Phasing errors which appear random are attributable to 
errors in input precipitation and/or evaporation data. 

5. Since there are parameter interactions, all performance indices should 
be re-checked after any parameter adjustment and others re-adjusted 

as needed until a "best simulation" is realized. 

The above comments apply equally to "fine tuning" the streamflow forecast model 
after a past run has been executed. 
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SECTION 5 


CONTROL OPTIONS 


The structure of the model permits the user to select a number of control 
options to meet his specific requirements. These include operating modes 
(long-term calibration, forecast and "fine tune"), inclusion or exclusion 
of snowmelt, selection of how evaporation is to be treated, and selection 
of input data. The sixteen control options, their meanings and their ap- 
plications are listed in Table 5-1. 



Table 5-1. CONTROL OPTIONS 


OPTION 

NUMBER 

APPLICATION 

VALUE 

EFFECT/MEANING 

1 

ENABLES OPERATOR TO REQUEST STORM 

0 

15-MINUTE DETAILS REQUESTED 


DETAILS IN 15-MINUTE INTERVALS 
(SELDOM USED) 

1 

15-MINUTE DETAILS NOT REQUESTED 

2 

DIVIDE EACH HOUR'S RAINFALL BY 
STORED STATISTICS AMONG 15-MINUTE 
PERIODS 

0 

1 

DIVIDE RAINFALL EQUALLY 
DIVIDE RAINFALL STATISTICALLY 

3 

SELECT WAY IN WHICH EVAPORATION 

0 

READ DAILY EVAPORATION 


DATA ARE READ 

1 

READ BY 10-DAY PERIODS 



2 

USE ANNUAL EVAPORATION TOTAL, 
MNRD AND SUBROUTINE EVPDAY 

4 

SELECT DAILY FLOW ERROR TABLE 

0 

TABLE NOT REQUESTED 


' 

1 

TABLE IS REQUESTED 

5 

REQUEST 20 GREATEST RAINFALLS 

0 

DATA NOT REQUESTED 


AND OVERLAND FLOWS 

1 

DATA REQUESTED 

6 

REQUEST DAILY VALUES OF SOIL 

0 

DATA NOT REQUESTED 


MOISTURE STORAGE (TABLE OUTPUT) 

1 

DATA REQUESTED 

7 

INCLUDE SNOW IN ANALYSIS 

0 

SNOW NOT INCLUDED 



1 

SNOW INCLUDED 

8 

SELECT PRECIPITATION PLOTS 

0 

NO PRECIPITATION PLOTS 


(ALWAYS SET=2 IN CURRENT MODEL) 

1 

PRECIPITATION PLOTS ONLY 



2 

PRECIPITATION PLOTS SUPERIMPOSED 
ON STREAMFLOW PLOTS 

9 

SELECT WHETHER DAILY RECORDED 

0 

RECORDED FLOWS NOT READ 


STREAMFLOWS ARE READ IN 

1 

RECORDED FLOWS ARE READ 

10 

NOT USED IN PILOT FORECAST MODEL; 

0 

SINGLE-YEAR SIMULATION 


ALWAYS SET-0 


ONLY 

11 

INSTRUCT MODEL TO READ OR NOT 

0 

NO DIVERSIONS 

* 

READ DIVERSIONS (E.G., PUMPING IN 
OR OUT) 

1 

READ DIVERSIONS 

12 

SELECT STREAM ROUTING INTERVALS 

0 

15-MINUTE INTERVALS 


(DEPENDS ON BASIN SIZE) 

1 

1-HOUR INTERVALS 

13 

CHOOSE IF LENGTH OF TIME - AREA 

0 

FIXED TIME-AREA HISTOGRAM 


HISTOGRAM IS TO VARY WITH FLOW 


{TAH) LENGTH 


VELOCITY; ALWAYS SET-0 

1 

VARIABLE TAH LENGTH 

14 

PRINTING RECORDED STREAMFLOW 

0 

DO NOT PRINT 



1 

PRINT 

15 

SELECT MODE OF OPERATION FOR 

0 

INITIALIZATION AND FORECAST RUN 


RIVER FORECAST APPLICATION 

1 

FORECAST RUN 



2 

PAST ("FINE TUNE") RUN 

16 

SET INITIAL CONDITIONS IN DATA 

0 

DO NOT SET 

i 

BANK FOR NEXT FORECAST RUN 

1 

SET 



5-2 
























































SECTION 6 


THE STREAMFLOW FORECAST MODEL 


Early in 1972, IBM acquired a copy of the Kentucky Watershed Model through 
the courtesy of one of its developers, Dr. L. D. James, for use in investi- 
gations of remote sensing applications in hydrologic modeling. It has been 
modified several times since then by the addition of statistical analysis 
routines, plot outputs, multi-year simulations, and some efficiencies in 
inputting observed streamflow data. Additionally, it has been adapted to 
interface with terminal management software in two computer system instal- 
lations. The principal modifications implemented for this study are those 
providing for a variable simulation period, a "past-run" capability, simu- 
lations based on three different precipitation inputs, and output formats 
suitable for CRT display. The forecast model subroutines are listed in 
Table 6-1. 

6.1 THE MAIN PROGRAMS 

The main program consists of the executive routine MAIN and the moisture 
accounting subroutines KWMAIN, WORSTC, ZEROP, FORCST, and PASTRN. The 
choice of moisture accounting subroutine depends upon the value assigned to 
CONOPT (15). If CONOPT (15) = 0, the KWMAIN subroutine is used to initial- 
ize the system, i.e., to read in all the parameter values, control options 
and initial values assigned to the variables. If CONOPT (15) = 1, the three 
subroutines WORSTC, ZEROP and FORCST are used to generate the three forecast 
runs and store the resulting simulated streamflow arrays. If CONOPT (15) = 2, 
the subroutine PASTRN is used to run a simulation (up to a selected day in the 
past) using actual precipitation inputs. 

A flow diagram of the water accounting calculations is shown in Figure 6-1. 

The calculations are conducted in a series of nested daily, hourly, and 
15-minute loops in the main program. The basic calculations are discussed 
as follows. 

6.1.1 PRECIPITATION INPUTS 

As discussed in Section 2.0, hourly rainfall values and auxiliary daily 
storage gage data are used to obtain a weighted hourly precipitation value 
for the watershed. This value, in turn, may be adjusted by the recording 
gage precipitation multiplier (RGPMB), depending on the degree of watershed 
calibration attained. 

6.1.2 INTERCEPTION 

All incoming precipitation is assigned to interception storage until the 
assigned interception storage parameter (VINTMR) is satisfied. Precipi- 
tation in excess of interception storage passes on to Upper Zone Storage 
(UZS) for the previous land surface area. Precipitation intercepted by the 
impervious land surface (FIMP) runs off the impervious surface to the channel. 
Interception storage is depleted by evaporation at the potential rate. 
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TABLE 6-1 


NAME AND 
CONTROL OPTION* 

MAIN 

KWMAIN 

C0NOPT(15)=0 

WORSTC 
ZEROP 
FORCST 
CONOPT (1 5 )=1 

PASTRN 

CONOPT (1 5 ) =2 

OUTPUT 

ATTEN 

BCDWD 

CHANGE 

CONVER 

CORREL 


*As applicable 


STREAMFLOW FORECAST MODEL SUBROUTINES 
FUNCTIONAL SUMMARY 


Executive subroutine; calls others in order, 
as governed by their respective control options. 

Moisture accounting subroutine, adapted from 
KWM; initializes model from beginning of the 
water year to the beginning of the forecast 
period. 

Moisture accounting subroutines 
for v/orst-case, zero and quantitative 
precipitation forecast, respectively; 
simulates streamflows through the forecast 
period. 

Moisture accounting subroutine for actual 
precipitation input for up to 14 days in the 
past. Outputs actual and simulated streamflow 
for comparison and "fine tuning" of soil moisture 
storages. 

Formats Tables and Plots for past run and fore- 
cast run outputs for terminal CRT. 

Model 2250 Terminal Operator Interface Routine. 

Creates words for display/output from the 
decimal equivalents of given words; in BAL 
language. 

Rearranges hourly precipitation inputs to normal 
order (October 1 - September 30), with February 29 
taken into account. KWM normal order input is 
January 1 - September 30 (year 2), followed by 
October 1 - December 31 (year 1) and February 29. 

Converts hexadecimal data format to EBCDIC format 
for display on the 2250 terminal. 

Calculates correlation coefficients between daily 
and monthly simulated and observed streamflow. 
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TABLE 6-1 

STREAMFLOW FORECAST MODEL SUBROUTINES (CONTINUED) 


NAME AND 
CONTROL 

FUNCTIONAL SUMMARY 

DAYNXT 

Calculates the number in the water year of the 
next day, taking leap years into account. 

DAYOUT 

Formats and prints tables of daily values. 

DICTRY 

Formats dictionary (choice of displays) for 
display. 

DLPO 

Residue routine - not used. 

DMSG 

Residue routine - not used. 

DSMRG 

Formats the updated test line displayed on the 
2250 terminal. 

DSREAD 

Performs the contiguous read and display of the 
Hydrology Data Base on the 2250 terminal. 

DSUPDT 

Performs the actual update of Hydrology Data Base 
which is displayed on 2250 terminal. 

DSWRITE 

Performs the contiguous write to disk of the 
updated Hydrology Data Base. 

DVAR 

Display/Option Processing Module; allows the calling 
program to communicate with the user(s); processes 
light pen and keyboard entries. 

EVPDAY 
CONOPT (3 )=2 

Determines pan evaporation totals for 
each day of the water year from mean annual 
evapotranspiration total. 

GSPD 

Common Data Block module from which Hydrology 
Simulator updates and accesses stored data. 

I NT 

Finds the integral of a given hydrograph (i.e., runo 
and plots the hydrograph. Print plots and tabular 
plots are available. 


TABLE 6-1 

STREAMFLOW FORECAST MODEL SUBROUTINES (CONTINUED) 


NAME AND 
CONTROL OPTION 

INTEG 

TABLE 


FUNCTIONAL SUMMARY 


Performs the actual integration for the hydrograph 
plot represented on display and printer. 

Performs a table look-up and linear interpolation. 


LABELS 

PL360 

PL4020 

PLOTID 

PLOTEND 

POINTS 

PR360 

PRECHK 

PREPRD 

CONOPT(3)=l 

RTVARY 


Creates the labels associated with the coordinates 
of hydrograph plots. 

Plots N points using the coordinates from two input 
arrays. Scalers are adjusted for maximum and minimum 
values in both arrays. This output is represented 
on printer plots only. 

Performs the generation of hydrograph plots to be 
displayed as specified by the parameter argument list. 

Performs the necessary 2250 terminal I/O and Data 
Set initialization. 

Terminates on-line status of the 2250 terminal. 

Performs the actual plotting of points for requested 
hydrograph. 

Performs the printing of requested hydrograph plot. 

Checks precipitation - streamflow anomalies and 
adjusts precipitation where necessary. 

Divides hourly precipitation among 15 
minute accounting periods according to an 
algorithm developed by Liou (1970). 

Increase flow velocity (in routing) as discharge 
increased. 


SGRID 


Creates the coordinates necessary for requested 
hydrograph. 


STREAMFLOW 

NAME AND 
CONTROL OPTION 

SHIFT1 

SNOMEL 

CONOPT(7)=l 

STAT 


TABLE 6-1 

FORECAST MODEL SUBROUTINES (CONTINUED) 
FUNCTIONAL SUMMARY 


Performs the actual creation and storing of Display 
Dictionary elements. 

Moisture accounting in the snowpaek. 

Calculates equivalent precipitation input from 
snowmelt. Obtained from VI. D. Striffler (1973). 

Statistical analysis of simulated vs recorded 
streamflow. Calculations include sums, maxima, 
means, sums of squares, variances and correlation 
coefficients. 



Figure 6-1. Water Accounting in the Stanford Watershed Model (Ross, 1970) 
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6.1.3 UPPER ZONE STORAGE 


Precipitation in excess of interception storage reaches the ground surface 
where it either infiltrates into the soil or, if precipitation rates are 
greater than infiltration rates, accumulates on the surface as depression 
storage or overland flow detention storage. Water infiltrating will go 
either to lower zone storage or interflow storage. The distribution of 
surface water into the various components (surface detention, interflow 
storage, infiltration) depends upon the upper zone storage capacity (UZC), 
the lower zone storage ratio (LZS/LZC), the basic interflow volume factor 
(BIVF), and the seasonal adjustment factor (SIAC). The model for distribu- 
ting surface water is illustrated in Figure 6-2. 

The upper zone storage capacity is calculated as: 

UZC = SUZC (AEX90) + BUZC(e' 2,7 LZSR ) 

where SUZC is the seasonal upper zone storage 

AEX90 is an evaporation index. 

BUZC is the basic upper zone storage capacity. 

and LZSR is the ratio of current lower zone storage to the lower zone 

storage capacity (LZS/LZC). 

The fraction of moisture retained (FMR) is then calculated as a function 
of the Upper Zone Storage Ratio (UZS/UZC) accoring to the relationship shown 
in Figure 6-3. Upper zone storage is depleted by both infiltration (delayed) 
and evaporation. Delayed infiltration is calculated as: 


where 


and 


UZINLZ = 
UZINLZ = 
BMIR = 
UZC 
UZINFX 


0.003 BMIR * UZC * UZINFX ** 3.0 

current upper zone infiltration to lower zone. 

basic maximum infiltration rate. 

upper zone storage capacity. 

upper zone infiltration index. 


= (UZS/UZC) - (LZS/LZC). 


Upper zone losses to evaporation are at potential rate as long as storage 
is present. 

6.1.4 ACTIVE INFILTRATION 

Water in excess of the upper zone storage capacity will be distributed to 
interflow storage, infiltration, or overland flow according to the model 
in Figure 6.2. The proportion of water going to lower zone and ground water 
storage depends upon the infiltration rate. As illustrated in Figure 6.2, 
infiltration rates are distributed linearly over the watershed from 0 to 
a maximum (BMIR) at some point on the watershed. The basic maximum infil- 
tration rate (CMIR) for each 15-minute period during a storm: 
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Figure 6-2. Model for Estimating Infiltration Capacity (Ross, 1970) 
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Figure 6-3. Model for Estimating the Upper Zone Storage Component of Surface 
Detention (Ross, 1970) 



CMIR = 0.25 * SIAM * BMIR/ (2.0 ** EID) 
where CMIR = adjusted current maximum infiltration rate. 

SIAM = seasonal infiltration adjustment multiplier. 

= 1.2 ** SIAC 

and EID = exponent of infiltration rate decay with increased soil 

moisture content 

= 4.0 * LZSR for LZSR values less than 1.0 

The proportion of water going to interflow storage is also calculated as 
part of the active infiltration calculation: 

CMIV = BIVM * 2.0 ** LZSR 

where BIVM = basic interflow volume parameter. 

LZSR = lower zone storage ratio (LZS/LZC). 

6.1.5 LOWER ZONE AND GROUND WATER RECHARGE 

The portion of the water infiltrated into the ground will either go into 
lower zone storage (LZS) or pass through to ground water storage (GWS) de- 
pending on the lower zone storage ratio (LZS/LZC). The amount of water in- 
filtration to the lower zone storage is calculated as: 

FMR = (1.0/ (1.0 + LZRX) ) ** LZRX 

where FMR = fraction of moisture retention in lower zone 

and LZRX = lower zone moisture retention index. 

= 1.5 * ABS(LZSR - 1.0) + 1.0. 

The proportion going to ground water is calculated as: 

PGW = (1.0 - FMR) * UZINLZ * (1.0 - SUBWF) * FPER 

where PGW - percolation to ground water. 

FMR = fraction of moisture retention 

UZINLZ = current upper zone infiltration to lower zone. 

SUBWF = subsurface water flow out of basin. 

and FPER = fraction of watershed being pervious. 

The recharge to ground water as a function of the lower zone storage ratio 
is shown in Figure 6-4. 
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6.1.6 OVERLAND FLOW 


Overland flow calculations are based on a modified version of the Chezy- 
Manning Equation: 

1.486 5/31/2 

q „ __ y S 

3 

where q = flow rate in ft /sec/ft. 

y = depth in feet at the lower edge of the flow plane, 
s = slope of the flow plane in ft/ft. 
and n = Manning's roughness coefficient. 

Crawford and Linsley (1966) used this equation to obtain a relationship 
between surface detention at equilibrium, the supply rate to overland 
flow, the length and slope of the flow plane, and Manning's n. In the 
Kentucky model the overland flow calculation takes the form: 

OFR = 0.25 * OFRF * ((OFUS + PEAI) * 0.05) ** 1.67 * ((1.0 + 0.6) 
* ((OFUS + PEAI) / (2.0 * EQD)) ** 3.0) ** 1.67 

where OFR = current overland flow runoff (inches/hour). 

OFRF = overland flow routing factor. 

= 1020.0 * (OFSS ** 0.5)/ (OFMIN * OFSC). 

(OFUS + PEAI) / 2.0 = detention volume (corresponding to y). 

and EQD ~ equilibrium depth of overland flow 

= EQDF * ((PEAI - OFUS) ** 0.6) 

A similar calculation is used for overland flow from both previous and 
impervious surface within the watershed. 

6.1.7 INTERFLOW 

The volume of water entering interflow storage was calculated previously. 
Interflow storage is depleted according to a logarithmic decay function: 

SPIF = IFRL * IFS 

where SPIF = synthesized period interflow. 

IFRL = log if interflow period recession constant. 

IFS = interflow storage. 


and 


6.1.8 GROUND WATER FLOW 


The volume of water entering ground water storage was calculated previously. 

The flow from ground water storage to the stream is calculated as : 

CBF = GWS * BFRL * (1.0 + BFNRL * BFNX) 

where CBF = current base flow. 

GWS = ground water storage 

BFRL = the log of the base flow recession constant. 

BFNRL = the log of the nonlinear base flow adjustment factor 

and BFNX = current value of the nonlinear base flow adjustment factor. 

Losses from ground water storage may occur by deep seepage or flow out of 
the basin, and by direct evaportranspiration losses. Ground water flow from 
the basin is specified in the input parameter SUBWF and adjustments made to 
ground water storage (GWS). ET losses from ground water are determined from 
the input parameter GWETF which essentially designates the proportion of the 
watershed from which ground water is evaporating and calculate ET at potential 
rates from that area. 

6.1.9 EVAPOTRANSP I RAT I ON 

Evapotranspiration losses from the watershed occur at various locations and 
at various rates. Evaporation from interception storage, upper zone storage, 
ground water storage (when indicated) and open v/ater surfaces is calculated 
at the potential rate. Evapotranspiration losses from the remainder of the 
basin are calculated at a variable rate depending on the availability of soil 
water. Potential evapotranspiration is assumed equal to lake evaporation which 
is determined from pan evaporation data (DPET) and a monthly pan coefficient 
(EPCM). As discussed in Section 3, pan evaporation data can be input as daily 
values, average values over a 10-day periods, or a mean annual ET value 
(EPAET). If the latter is used, subroutine EVPDAY is called and the mean 
annual value distributed over the days of the year. 

Two adjustments are made to the potential evapotranspiration rate (PET). 

First, if the daily maximum temperature (DMXT) minus 4.0 times the elevation 
difference (ELDIF) is less than 40.0, PET is set at zero. Second, if the 
basin is snow covered, PET is only calculated from the portion of the basin 
covered by forest (PET = FFOR * PET). 

In the model, PET is first taken from Interception Storage, Ground Water 
Storage (if specified), and upper zone storage at the potential rate. If 
PET remains, it is taken from lower zone storage according to the form: 


SET = PET * (1.0 - PET/(2.0*ETLF * LZSR)) 


where SET = current hourly soil evaporation 

PET = current daily potential evaporation. 

ETLF = the ET loss factor (parameter). 

and LZSR = lower zone storage ratio. 

The term (ETLF * LZSR) defines the maximum rate at which evaporation can 
occur, and determines the distribution of evaporation from the watershed 
according to the model illustrated by Figure 6-5. 

Other evaporation losses from the watershed include Daily Potential Snow 
Evaporation (DPSE) which is calculated separately from watershed PET and 
Evaporation from open water surfaces (FWTR). 

Snow evaporation is calculated as a function of the daily minimum tempera- 
ture and the daily potential evaporation data array (DPSE). If the daily 
minimum temperature is less than 32°F., snow evaporation is equal to DPSE. 
Evaporation from the free water surface on the watershed is calculated as: 

HSE = (FWTR * PET)/1 2.0 

where HSE = hourly stream evaporation 

FWTR = proportion of watershed covered by water 
PET = potential evaporation 

HSE is calculated between the hours 9:00 a.m. and 9:00 p.rn. 

6.1.10 ROUTING 

The overland flow and interflow components are delivered to the channel 
system and must be routed through the channel system to simulate the hydro- 
graph at the basin outlet. Linsley and Crawford (1966) adapted an empirical 
method of Clark (1945) using the time-area histogram discussed in Section 3.1. 
The basic premise of the method is that the time-area histogram represents 
the time distribution of outflow from the watershed. Inflow into each element 
of the time-area histogram is routed through the element using the relationship: 


0 2 = I - CSRX (I - 0^ 

where O 2 is the outflow at the end of the time interval 

Oi is the outflow at the begining of the time interval 

T is the average inflow into the reservoir during the time 
interval 

and CSRX is the channel storage routing index. 
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The program provides for three chnannel flow situations: (1) if the synthe- 

sized channel flow is less than half the channel capacity (CHCAP), the 
channel storage routing index (CSRX) is used in the above calculation. 

(2) if the synthesized flow is over twice the channel capacity, indicating 
that the flow is out of the banks, the flood plain storage routing index 
(FSRX) is used; and (3) if channel flow is between 0.5 and 2.0 CHCAP, a value 
is interpolated between CSRX and FSRX. 

The routing calculations discussed assume that routing through the channel 
system is linear. If there is reason to believe that the time routing of 
storm hydrographs is nonlinear, a provision for increasing downstream velocity 
is provided in subroutine RTVARY. 

6.2 SUBROUTINE SNOMEL 

The snow melt subroutine is a simplified version of the Stanford Snow melt 
Model of Anderson and Crawford (1964) devised by Colorado State University. 

The model calculates snow melt as a function of air temperature with adjust- 
ments for seasonal radiation incidence and albedo. The model also maintains 
a continuous accounting of physical snow pack characteristics which enter 
into the snow melt accounting. The snow melt model is shown in Figure 6-6. 

It was not used in modeling the Town Creek basin, where snow is seldom of 
measurable effect. 

6.2.1 ELEVATION EFFECTS 

Precipitation - Precipitation is assumed uniform over the watershed. 

This is calculated by determing the ratio of gage catch to watershed pre- 
cipitation. This is an erroneous assumption for high mountain watersheds, 
especially large watersheds where precipitation varies strongly with ele- 
vation. No elevation correction is applied to the model for precipitation. 

Temperature - Hourly temperature values are used in the calculations to de- 
termine whether precipitation is rain or snow, and also to calculate snow 
melt. Hourly temperature values are estimated according to a sine wave dis- 
tribution between two representative extremes, the maximum and minimum. It 
is assumed that the maximum and minimum air temperature occur at 4:00 p.m. 
and 4:00 a.m. respectively. The recorded maximum and minimum are adjusted 
for elevation to give maximum and minimum values for the basin. Adjustments 
are based on the following relationships: 

1. At 4:00 p.m. the lapse rate = 4.00/1000 feet. 

2. At 4:00 a.m. the lapse rate = 0.00/1000 feet. 

3. During precipitation events, the lapse rate = 3.30/1000 feet. 



jf 

fj Figure 6-6. Snowmelt Calculations in the Kentucky Watershed Model 
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6.2.2 SNOW ACCUMULATION 

Accumulation - Temperature is not a perfect index to the form of precipitation 
but is assumed best. The subroutine uses a single temperature index to de- 
termine the form of precipitation. If the hourly temperature (TEH) is above 
32°F, precipitation occurring during this hour is rain, while if TEH is 32°F 
or less, precipitation is snow. If experimental data or local experience 
indicate a different index value would be more appropriate, the index value 
can be changed in the subroutine. 

Gage Catch Corrections - Precipitation gages are not as efficient in catch- 
ing snow as they are in catching rain. If a consistent low runoff volume is 
synthesized, a gage catch correction may be added by setting the value of the 
snow precipitation multiplier (SPM) greater than 1.0. 

6.2.3 „0SSES FROM THE SNOW PACK 

Interception Losses - Snow caught and held by the forest canopy is assumed 
proportional to the proportion of forest cover. The calculations are: 

FSIL = FFSI * FFOR * HSF 

Where FSIL = Hourly snow interceptive loss 

FFSI = Fraction intercepted by the forest 

FFOR = Fraction of forest cover in the watershed. 

HSF = Hourly snowfall. 

This loss is deducted from the hourly snowfall before it reaches the ground. 

Evaporation Losses - Evaporation losses from the snow pack are calculated 
separately from other evaporation losses and deducted from the snow pack 
water content (SPTW). Snow evaporation is determined using a curve of 
average snow evaporation over the year (DPSE data array). Snow evaporation 
is equal to the daily value if the daily minimum temperature is less then 
32°F. 

6.2.4 SNOW PACK CHARACTERISTICS 

The snowmelt subroutine also keeps a running account of the snow pack charac- 
teristics since melt rates depend upon the state, or "ripeness" of the snow 
pack. These characteristics include: 

Snow Albedo ~ The snow albedo correction is considered to vary with time and 
will range from a maximum value (fresh new snow) to a minimum value (ripe, 
melting snow) over a 15-day period. This array of values is included as a 
data array (FIRR). Under melt conditions, the snow albedo index (SAX) will 
increase by one each day until a maximum SAX of 15 is reached. Similarly, 
if a fresh snow falls on the snow pack, the albedo under is decreased by one 


6-18 



each day that fresh snow falls until a SAX value of 0.0 is reached. Rain on 
snow will also change the albedo index, thus if the hourly rainfall is 
greater than the precipitation index for changing snow albedo (PSCSA), the 
albedo index will increase by 1.0, The albedo value (FIRR) is used to adjust 
the melt rate. 

Density of New Snow - The density of new snow will vary according to the air 
temperature. Snow falling in a cold, dry atmosphere will be light and fluffy, 
while snow falling in a warmer environment will be wet and heavy. The den- 
sity of new snow is determined by the index density of new fallen snow (XDNFS). 
If the hourly air temperature (TEH) is less than 0°F, the density of new snow 
is set at the index density. If the hourly air temperature is greater than 0°F 

DNFS = XDNF + (0.1 (TEH))**2.0 

where DNFS = Density of New Snow 

XDNFS = Index Density of New Snow 

TEH = Hourly Air Temperature. 

Compaction and Setting of the Snow Pack - The snow melt subroutine assumes 
that all changes in the snow pack occur when new snow is added. When new 
snow is added to the snow pack, the added weight causes a certain amount of 
setting and compaction. This is calculated as: 

SDEPTH = SDEPTH - ( (PRH* SDEPTH/SPTW) * (0.10 * SDEPTH) ** 0.25)) 

where SDEPTH = Snow Depth 

PRH = Precipitation Recorded Hourly 

SPTW = Snow Pack Total Water Content. 

Reduction in snow depth also occurs due to snow melt. This is calculated 
as a function of hourly snow melt (HSM), the density of frozen water in 
the snow pack (SFM0), and the snow albedo index (SAX). Thus, for maximum 
melt conditions (SAX = 15.0): 

SDEPTH = SDEPTH - (HSM/SFMD) 

when SDEPTH = Snow Depth 

HSM = Hourly Snow Melt 

SFMD = Snow Frozen Moisture Density. 

For snow melt conditions less than maximum, (SAX 15.0) the SFMD factor is 
reduced proportionately. 
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Snow pack densities are also recalculated as a result of compaction and melt 
processes, as a function of snow depth and water content. 

STMD = (SPTW + SPLW ) /SDEPTH 

and SFMD = SPTW/SDEPTH 

where STMD = Snow Pack Total Moisture Density 

SFMD = Snow Pack Frozen Moisture Density 

SPTW = Snow Pack Total Water Content 

SPLW = Snow Pack Liquid Water Content 

SDEPTH = Snow Depth 

The snow pack liquid water holding capacity is determined as: 

SPLWC = SPBFLW * SPTW 


where SPLWC = Snow Pack Liquid Water Holding Capacity 

SPBFLW = Snow Pack Basic Maximum Fraction in Liquid Water 
SPTW = Snow Pack Total Water Content. 

Snow melt first goes to satisfy the liquid water holding capacity before being 
released to the soi 1 . 

6.2.5 SNOW MELT 


Snow melt occurs from three basic heat sources: The heat in the air over the 

watershed, heat in rain falling on the snow pack, and heat stored in the ground 
beneath the snow pack. Snow melt is calculated separately from these sources. 

Hourly Snowmelt - Hourly snow melt is calculated as a function of the basic 
degree hour melt factor (BDDFSM), and is adjusted for snow pack albedo and 
seasonal radiation incidence. The basic equation is: 

HSM = (TEH - 32°) * BDDFSM * RICD * (l-(l-FFOR) * FIRR + (TEH - 32°))* 

(PRH/144) * SPTW/SPTWCC 

where HSM = Hourly Snow Melt 

TEH = Hourly Air Temperature 
BDDFSM = Basic Degree Hour Melt Factor 
RICD = Radiation Incidence Correction Factor 
RICY* 1 + (FDAY/1 0.0) 
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FFOR = Fraction of Forest Cover on the Basin 
FIRR = Fraction of Radiation Reflected 
PRH = Precipitation Recorded Hourly 
SPTW = Snow Pack Total Water Content 
SPTWCC = Total Snow Pack Water Content to Cover the Basin. 

In the Kentucky version of the snowmelt model, the model assumes that the base 
temperature for snow melt is 32°. Thus, if the hourly air temperature is 
greater than 32°, snow melt will occur. The base temperature of 32° was 
selected for convenience and may not be the best point for some watersheds. 

If experience or research suggests a more appropriate base, it can be easily 
changed in the program. 

Since the snow melt factor BDDFSM represents the maximum melt rate, several 
adjustments are required. The first is to adjust for the incidence of radiation 
over the year. Since snow melt is not simply the result of sensible heat 
exchange from the air mass over the watershed, but also due to short wave ra- 
diation, the amount of radiation incident upon the snow pack is important. 

This adjustment is applied in the RICY array which essentially represents the 
distribution of solar energy over the year. Not all short wave radiation is 
absorbed, but much is reflected depending on the albedo of the snow pack. The 
second adjustment is for the albedo of the snow pack and the proportion of 
forest cover on the watershed. The albedo reduction factors are provided in 
the data array FIRR discussed in Section 3.2. 

Snow melt due to rain falling on this snow pack is also determined. The program 
assumes that rainfall has the same temperature as the air above the snow pack. 
While this may not be true, it is a reasonable assumption for the snow melt 
calculation. Again, the base temperature is set at 32° and the melt resulting 
from rainfall is determined. 

The final adjustment to hourly snow melt on the basin is for partial snow 
cover conditions. The program assumes that if the total water content of the 
snow pack is greater than some index value (SPTWCC), melt is occurring uni- 
formly over the basin. However, if the snow pack water content falls below 
the index value, snow cover is assumed not complete over the basin, and melt 
is reduced proportionately. 

Negative Snow Melt - Since snow melt only occurs when air temperatures are 32°F 
or greater, the program assumes that negative melt or freezing occurs in the 
snow pack when temperatures are below 32°. In reality, the re-freezing of 
liquid water and chilling of the snow pack are highly complex processes depending 
on the density of the snow pack, the water holding capacity, the liquid water 
content, the structure, and heat content of the snow pack. In the model the 
re-freezing of liquid water and chilling of the snow pack are considered together 
as negative snow melt. Because of the complexities of the processes, an empiri- 
cal function relating negative snow melt to air temperatures is used (Anderson 
and Crawford, 1964). 
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The routine assumes that negative snow melt occurs at some maximum rate (MRNSM) 
for the first twelve hours, Thereafter, the negative snow melt is calculated 
as: 


NSM = ((5.0 * MRNSM) ** (1.3 + 2.0 * TANSM)) 

where NSM = Negative Snow Melt 

MRNSM = Maximum Rate of Negative Snow Melt 

TANSM - Total Accumulated Negative Snow Melt 

Total accumulated negative snow melt cannot exceed .08*SPTW. 

Snowmelt From Ground Heat - In some watersheds, snow melt due to heat in the 
ground is a significant source of melt. The Stanford Snow Melt Model assumes 
that melt from ground heat is, constant (DSMGH). The total snow water content 
is reduced by this amount each day and added to overland flow. 

6.3 OTHER SUBROUTINES 

Most of the subroutines not previously discussed in this section were adequately 
summarized as to function in Table 6-1. Some of them are given additional 
attention in the following paragraphs. 

6.3.1 SUBROUTINE READ 

Subroutine READ is a machine language subroutine for reading data into the 
program. Since large amounts of data are required in the program, READ permits 
the use of unformatted data, data cards with labels or comments on the data card, 
and the insertion of comment or blank cards in the data deck. 

Basically, a CALL READ statement in the program deck should include the name of 
the variable (or variables) being read and the number of values to be read. For 
example, in CALL READ (C0N0PT (1, 15)), the computer v/ould read the next 15 
values in the data deck whether they are on one card or 15 cards and store the 
values in array C0N0PT (15). Similarly, a CALL READ (GWS, UZS, LZS, BFNX, IFS) 
statement would cause the next five values to read and store with the appropriate 
label . 

A few simple rules should be observed in the use of the subroutine. 

1. Use only on numeric data, either real or integr. READ cannot 
read alphanumeric data. Thus, title cards, etc. must be formatted 
as usual. In addition, alphanumeric cards must follow a numerical 
data card and cannot follow a comment card. 

2. Data values must be punched on the cards and placed in the deck 
in the order in which they are called. 

3. The type of variable value should agree with the designation of the 
variable names, i.e., real, integr, 

4. A space should be left between consecutive values although no other 
spacing requirements are required. 
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6.3.2 SUBROUTINE DAYNXT 


Subroutine DAYNXT is a simple routine which calculates the next day of the year. 
Since most of the daily moisture accounting is calculated and stored according 
to the number of the day, DAYNXT determines the number of the next day of the 
year making appropriate adjustments for Leap Years and beginning a new year. 

6.3.3 SUBROUTINE DAYOUT 

Subroutine DAYOUT is a subroutine called in printing out the tables of daily 
synthesized streamflow values, daily recorded streamflow values, and daily 
soil water values. The subroutine converts daily values from calendar year 
day values (VDCY) to month day values (VDMD) and prints the daily values 
arranged by month in the water year month order. 

6.3.4 SUBROUTINE EVPDAY 

Subroutine EVPDAY determines the daily potential evaporation (DPET) for each 
day of the year, given the mean annual potential evapotranspiration (EPAET), 

The subroutine is called when CONOPT 3=2 and requires EPAET and MNRD data 
cards. Liou (1970) suggests that the subroutine is most valuable when a number of 
watersheds from the same region are to be tested and evaporation data are scarce. 
The tests can be run without the necessity of developing detailed evaporation 
data for each watershed. 

Basically, the subroutine consists of an array of fractions for each day of the 
year which determines the potential evaporation for that day. When CONOPT 3=2, 
the main program first calculates the annual potential evaporation which would 
occur if no rain were recorded: 

EMAET = EPAET (365_+_MNRD) 


where EPAET and MNRD are input data values for the estimated potential annual 
evaporation and the mean number of rainy days. Liou (1970) indicates that the 
denominator would be (365 + 0.5 * MNRD) if there were an equal likelihood of 
rain occurring during any day of the year, but that 404 works better in Kentucky 
where more rain occurs during the winter. The EMAET value is then multiplied by 
each of the daily evaporation fractions to obtain daily evaporation values. Ross 
(1970) discusses a method of determining the evaporation fraction used in EVPDAY 
and suggests that similar procedures should be used to obtain values for areas 
remote from Kentucky. Liou (1970) indicates that the Kentucky array seemed to 
work well in California but should be slightly more peaked for more northern 
latitudes and higher elevations. 

6.3.5 SUBROUTINE PREPRD 

The Kentucky Watershed Model requires hourly rainfall data to simulate infil- 
tration and surface runoff processes. Although hourly data is read into the 
program, the moisture accounting subroutine divides the hourly value into four 
equal 15-minute values for the infiltration and overland flow calculation. 

This is strictly a convenience for a simplified calculation since rainfall is 
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seldom uniform for an hour period. On large basins with runoff lag times of 
several hours, this simplification is satisfactory. However, on small water- 
sheds or in situations where the hourly distribution of rainfall might influence 
the timing and magnitude of the outflow hydrograph, it is desirable to have 
precipitation data for periods less than an hour, or, to distribute hourly 
precipitation according to a probable distribution. Subroutine PREPRD provides 
the user with the option (CONOPT 2 = 1 ) of subdividing hourly rainfall into 
non-uniform 15-minute quantities according to an average distribution. 

The average distribution was determined from a curve showing the average dis- 
tribution of 6-hour precipitation developed by the Bureau of Reclamation (1960) 
(Liou, 1970). The distribution of hourly rainfall determined by Liou (1970) is 
into fractions of 0.46, 0.28, 0.16, and 0.10. The proper sequencing of these 
fractions during the hour is a problem. PREPRD distributes rainfall according 
to the following conditions: 

1. If the current hour rainfall is greater than both the previous and 
the following hour, the distribution is 0.10, 0.28, 0.46, and 0.16 of 
the hourly total. 

2. If current hourly rainfall is less than both the previous and the 
following hour, the distribution is 0.28. 0.10, 0.16 and 0.46. 

3. If the current hour rainfall is greater than the preceding hour but 
less than the following, the order is 0.10, 0.28, 0.16, and 0.48. 

4. If current hour rainfall is less than the preceding but greater than 
the following hour, the order is 0.46, 0.16, 0.28, and 0.10. 

6.3.6 SUBROUTINE RTVARY 

In the channel routing procedure, the program assumes that the flow velocity 
is relatively uniform throughout the channel length and for all flow conditions. 
Since this may not be a valid assumption in many watersheds, especially dur- 
ing stormflows, subroutine RTVARY provides the user with a routine to increase 
flow velocities as discharge increases. The equation is: 

v e k * q (exqpv) 

where V = flow velocity 
K = constant 
Q = channel flow volume 

and EXQPV = an exponent of flow proportional to velocity. 

The primary effect of this subroutine is to magnify flood peaks. 
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SECTION 7 


OUTPUTS 


Examples of streamflow forecast model outputs appear in this section. 

o Tables of hourly streamflow values in cfs for worst case, zero pre- 
cipitation and quantitative forecasts. 

o Three superimposed hydrographs, one for each forecast case 

o Table of daily precipitation, surface runoff, interflow, base flow and 
storm runoff for each forecast case. 

o Table of peak flow, time of peak, total runoff and total precipitation 
for the forecast period 

o Soil moisture storages and parameters at the end of each day for each 
forecast case. There are interflow (IFS), upper zone (UZS), lower 
zone (SZS), ground water (GWS), baseflow nonlinear recession index (BFNX), 
seasonal infiltration adjustment multiplier (SIAM) and upper zone capac- 
ity (UZC) 

o Table of past-run hourly simulated streamflow values 

o Two superimposed past run hydrographs, simulated and observed 

o Table of past run daily simulated and observed hydrograph parameters: 
precipitation, surface runoff, base flow, and storm runoff 


o Table of total past run simulated and observed peak flow, time of peak, 
runoff and precipitation 

o Soil moisture storages and parameters at the end of each day of the past 
run: interflow (IFS), upper zone (UZS), lower zone (SZS), ground water 
(GWS), baseflow nonlinear recession index (BFNX), seasonal infiltration 
adjustment multiplier (SIAM) and upper zone capacity (UZC). 

o Table of soil moisture storages and parameters at the end of each day 
of the past run. 
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MJMBtR OF RECESSION SFIOUENCES 

NUMOCrt of time routing increments remaining to be routed 

NUMBER UH STORAGE GAGE K A I KF AL L DAYS 

NUMBcK UF STATION YEAH* CUKKF.Nl t.NE BEING PUN 

NUMBER OF STATION YEARS, TOTAL INCLUDED IN A GIVEN JOB 

NUMBER OF TENTATIVE RECESSION SLCUENCES 

BEGINNING CF RATER YEAR 

OCTUBER FIRST EASE FLOW 

OVERLAND FLOW MANNING'S N 

CVtRL AND FLOW MANNING'S N , IMPERVIOUS SURFACES 
CURRENT OVERLAND FLOW RUNOFF 
OVERLAND FLOtv RLUI ING FACTLJR- 

OVERLAND FLOW ROUTING FACTOR, IMPFPVIOUS SURFACES 

CURRENT OVERLAND FLOW RUNOFF, IMPERVIOUS SURFACES 

CVCRLANO F LUn S I GRADE 

CVFRLAM) FLOW SURFACE LENGTH 

CVERLAND FLOW SURFACE SLOPE 

CURRENT OVERLAND FLOW UNROUTCD STORAGE 

CURRENT OVERLAND FLOW UNRUUTED STORAGE, IMPERVIDUS 

SURFACES 

PREVIOUS VALUE CF BIVF 

PREVIOUS VALUc CF BMIR ... 

PREVIOUS ESTIMATE OF BASIC UPPER ZONE STORAGE CAPACITY 
FACTOR 

BEGINNING CATE CF FORECAST 

PREVIOUS DAY UF THE YEAR * - ’ 

PR EC 1 PI T ION EXCESS AFTER INFILTRATION . 

•PEAK CF SIMULATED STORM- 

-PRECIPITATION EXCESS, BEFORE INFILTRATION * - - * 

-PRECIPITATION fcXCUSS ON IMPERVIOUS SURFACES 

PRECIPITATION fcSTT MATED FOR PFR1PC 

XUKRENT DAILY POTENTIAL SVAPuT RANSP IP AT ION 

PREVIOUS ESTIMATE OF E V AHOTP.ANSP I RAT ION LUSS -FACTOR 

UNADJUSTED CuKRENT DAILY POTENTIAL EV APO I R ANSP I R A T I ON 

PRcCEP ITAT ION ESTIMATES FOR A PERIODS 

•PCPCO LAT.I C N TC GROUND wATcR 

•HOUR OF OBSERVED STORM PEAK • — - 

HOUR CF SIMULATED STORM PEAK 

PREVIOUS ESTIMATE OF LZC . 

PERCOLATION TO LOWER ZONE STCK AGF 
-PERIOD MOISTURE -ENTERING INTERFLOW STORAGE 
PERIOD MOISTURE ENTERING LOWER ZONE STORAGE 
■PERIOD MDlSTUivt ENTERING OVER LAND FLOW STORAGE 
PERIOD MOISTURE ENTERING UPPER ZONE STORAGE 

BEGINNING MONTH OF FORECAST . 

PERIODS PER HOUR . 

PRECIPITATION PASSING INTERCEPTION ' '*• " ‘ 

CURRENT PERIOD CF THE HCUR 

CURRENT PERIOD CF THE HOUR-FLOATING" POINT 
PRECIPITATION RECORDED FUR HOOK 
PK EC IP I TAT I ON RECCrOJEC FOR LAST HOUR 
PRECIPITATION DURING WETTEST MONTH 
PRECIPITATION DURING SECOND WETTEST MONTH* 

PRECEP I TAT ION RECORDED FDR NEXT HOUR 

PREVIOUS ESTIMATE UF SEASONAL INFILTRATION ADJUSTMENT 
PRC V THUS ESTIHAED OF SEASONAL UPPER ZONE STORAGE CAPACITY 
•FACTOR 

PRECIPITATION INDEX FOR CHANGING SNOW ALBEOO 
CBSERVFO HOURLY STORM SAMPLES 

PEAK OF OPSEkVFD STORM • 

MINIMUM OF OBSERVED STORM “ !> * '- • "• • • - v • 

MEAN DAILY OBSERVED STORM SAMPLES . ...... . . 

RECESSION ALPHA 

RAINFALL ADJUSTMENT ADDITION 

RECORDED AVERAGE DAILY FLOW . ......... . . 

RAINFALL ADJUSTMENT MULTIPLIER . 

RECOHOED ANNUAL TOTAL FLCw VOLUME . . . 

REGRESSION ACCUMULATORS - * * V w * - a- 

RECESSICN EFT A - ~ - ' . ' . : ' • ' *" 

RECORDED’ BASE FLOW - - " . . . 

RECESSION DISCRIMINANT 
RECORCEC DAILY PRECIPITATION TUTAL 

RECORDED FLOW RISE . ‘ • 

RECORDING GAGE PRECIPITATION MULTIPLIER-- 
RECORDING GAGE PRuCI P IT AT l CN MULTIPLIER - BASIC 
ROUTED HYOKOGRAPH FLOW aT MINIMUM CUTJFF ■ - • - 

•PRECEDING RUUTEC HYDROGKAPH FLOW . ■ : 

CURRcNT ROUTED HYDROGRAPH FLOW (EXCLUDING BASE fLOW) 
RECORUED HYDkCGR A PH PEAK DAY - 

KECORUED HYUkDGRAPH PEAK ELUw •. ■* s • 

RECORDED HYUROGRAPH PEAK HOUR- *- ” > V 

RACIATICN INCIDENCE FOR THE CURRENT DAY N _ . . _ 

RAD l A T ILN INCIDENCE OVER THE CALENDAR YEAR 
RECORDED INTERFLOW ■ • : 

REGRESSION INTERCUT. - • ' *• ~ • 

RECORDED MONTHLY FLOW INDEX - * , 

REOJESTED MINIMUM DAILY PEAK FLOW TO BE PRINTED 
RAINFALL MAXIMUM WITHOUT RUNOFF 
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ESTIMATED PASE FLOW AT BEGINNING CF RECESSION SEQUENCE 
RECESS ICN SEQUENCE BEGINNING DAY 

RECESSION Srt.ULNCE BASE FLOW RECESSION CONSTANT 

ESTIMATED INTc^FLOw AT BEGINNING OF RECESSION SFGUENCF 

RECESS ICN SEQUENCE FLOW MINIMUM 

RECUR D tD Slftt: AMFLCW ON NEW DAY 

RECORDED STkIAMFLCW ON DAY I 

RECORDED STKEArFLUW CN CAY 2 

RECESSICN SECUENCE INTERFLOW RECESSION CONSTANT 
CURRENT RECESSICN SEQUENCE LENGTH 
REGRESSION SLOPE 

FOUllD SY xlTHCS I7EO PFRICD TOTAL FLOW 

RECESSICN SEQUENCE TOTAL FLOWS 

RATIO OF SYNTHESIZED TO RECORDED FLOW 

RECOKOXO -vATCRSHEO H A INFALL 

SYNTHESIZED AVERAGE DAILY FLOW 

SNCW ALBEDL RAINFALL AGING INDEX 

SNOW ALBEOC SNOWFALL FRESHENING 'INDEX 

SYNTHESIZED ANNUAL TOTAL FLOW VOLUME 

SYNTHESIZED ANNUAL TOTAL FLOW VOLUME IN INCHES 

SHIFT ADJUSTMENTS FCR TIME ROUTING INCREMENTS 

SNCW ALBEOC INDEX 

SYNTHESIZED BASE FLOW 

SYNTHESIZED PASE FLOW DURING THE FIRST THREE DAYS OF EACH 

RECESSICN SEQUENCE 

AVERAGE DEPTH OF SNOW ON GROUND 

SMALLEST VALUE CF DRSP ' ' 

SECOND DIFFERENTIAL OF SINE CURVE MAGNITUDE 
CURRENT DAILY SNOW EVAPORATION 

ACCUMULATED ABSOLUTE DIFFERENCES BETWEEN RECORDED AND 
SYNTHfcS IZED DAILY STREAMFLCWS FOR INTERVAL 

Average interval absolutc difference between recorded and 

SYNTHESIZED DAILY STREANFLOWS 

ACCUMULATED DIFFERENCES BETWEEN RECORDED AND SYNTHESIZED 
DAILY STRcAMFLUWS FOR INTERVAL 

average interval differ tNCE between recorded and 

SYNTHESIZED DAILY STREAMFLCWS 

STANDARD cRROR C-F SYNTHESIZED FLOWS BY MAGNITUDE INTERVAL 
CURRENT HOURLY SOIL EVAPOT KANSP IR AT ION 
SUMMER FLOW DEVIATION INDEX 

SNCW FROZtN, MOISTURE DENSITY ' " 

STORAGE GAGE MGV1NG DAY (WHEN IT IS MOVED DURING 
WATER YEAR > 

STORAGE GADt KEACING T I MF 

SECOND STORAGE GAGE READING TIME * 

SYNTHES1 ZEC H YC.ROGR APH MULTIPLIER 
SYNTHESIZED HYDROGRAPH PEAK FLOW 
SEASONAL INFILTRATION ADJUSTMENT CONSTANT 
SEASGNAL INFILTRATION AC JUSTME NT MULTIPLIER 
SYNTHESIZED INTERFLOW 

SYNTHESIZED UTEkTLOW DURING THE FIRST THREE DAYS OF EACH 
RECESSION SEQUENCE 

NO OF SIMULATEC HOURLY STORM SAMPLES 
SMALL INCREMENTAL STORAGE ROUTING INDEX 
SYNTHESIZED MONTHLY FLUw INDEX 
SAVED NUMcjER OF TIME POUTING INCREMENTS 
SUM UF OVERLAND FLOW MONTH DEVIATIONS 
SNOW CVERLANO FLOW ROUTING FACTOR 

SNOW CVERLANu FLOW ROUTING FACTuR IMPERVIOUS SURFACES 
SYNTHESIZED PERIOD BASE FLOW 

SNOW PACK eASIC MAXIMUM FRACTION IN LIQUID WATER - ' ' 

SYNTHESIZED PERIOD DIRECT RUNUFF - ■ . . . 

SYNTHES IZEL PtRIUC I NT cRFLCW 
SNCw PACK LIQUID WATER CONTENT 

SN0WPACK. LIQUID WATER HOLDING CAPACITY f ‘‘ - ^ ' 

SNCW PRECIPITATION MULTIPLIER 

SYNTHESIZED' PERIOD CVcRLAND FLOW (INCLUDING CHANNEL 
PREC l P I T AT ICN 1 

SYNTHESIZED PERIOD TOTAL FLOW ' 

SNOW PACK TOTAL WATER CONTENT 

SNCWPACK MINIMUM TOTAL 4 T c R FCR COMPLETE BASIN COVERAGE 
SIMULATED HOURLY STOR* SAMPLES 

ACCUMULATED SQUARES CF DIFFERENCES BETWEEN RECORDED AND 
SYNTHESIZED CAILY STREAMFLQWS 

SUM OF SQUARED PEAK DIFFERENCES ! 

STCRM RUN JF F ROUTED DQW'v CHANNELS 
CURRENT STORAGE ROUTING INDEX 

ACCUMULATcC ABSOLUTE DIFFERENCES BETWEEN RECORDED AND 
SYNTHESIZED FLCnS OVER INTEkVALS 

OVERALL AVERAGE ABSOLUTE DIFFERENCE BETWEEN RECORDED AND 
SYNTHESIZED FLCWS 

ACCUMULATED DIFFERENCES BETWEEN RECORDED AND SYNTHESIZED 
FLCrtS LVEK INTERVALS 

OVERALL AVERAGE DIFFERENCE BETWEEN RECORDED AND 
SYNTHESIZED FLOWS 

ACCUMULATED STAND. .RU ERROR OF SYNTHESIZED FLOW OVER 
INTEkVALS 

SUM OF THE SQUARES OF THE MONTHLY FLOW DEVIATIONS 
SMALLEST VALUE OF SQPKD ■ 

SYNTHESIZED STORM RUNOFF (NOT CHANNEL ROUTED I 
SCLARt ROUT UF GvCRLAinJ FLOW SURFACE SLOPE " 

CURRENT SMALLEST ESTIMATE OF SSUN 
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SUBSURFACE WATER FLOW OUT UF THE eASIN 
SEASONAL UPPFR ZONE STUKAGE CAPACITY FACTOR. 

SUM OF WET SUMMER .MONTH OBVIATIONS ’ 

TOTAL ACCUMULA f fcD NEGATIVE SNOWMELT (SNUrt CHILLING) 

TCIAL RASE FLCw RECESSION CAYS 

TIME EH DAILY FLCCU PEAK, 12-HiJUR CLOCK 

TIME Cf- DAILY FLCCO PEAK, 24-HOUR CLOCK 

TOTAL DAILY STREAMFLOW 

TEMPERATURE EST IMATEO FCR HOUR 

CURRENT TOTAL FLCw 

MAXIMUM TOTAL FLOW DURING CURRENT DAY 

TOTAL STREAMFLOW AT MAXIMUM STREAM ROUTING TIME 

TRIAL VALUE OF HSkX 

TOTAL STREAMFLOW INOEX 

TUTAL HOURLY GROSS RUNOFF 

TOTAL HOURLY STREAMFLOW 

TOTAL INTERFLOW kECESSlLN DAYS . 

TITLE CF CURRENT STATION YEAR (STREAMGAGE LOCATION AND 
DATE) 

TOTALS OF GAILY IRA St FLOW 

TOTALS OF GAILY: FOREST SNOW l NT SR3SPT90N-L0SS 

TOTALS OF GAILY INTERFLOW. 
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CURRENT TOTAL OVERLAND FLOW RUNOFF 
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COUNTER SPECIFYING PROGRAM PURTIONS 
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UPPtR ZCNE STORAGE CAPACITY • 

UPPER ZONE’ INFILTRATION INDEX 
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CURRENT UPPER ZCNE STORAGE 

VALUc CATEC GY CALENDAR DAY 
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WEIGHTED AVERAGE PARAMETER VALUE . .. 
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WATER ENTERING INTERFLOW STORAGE 

WINTER FLOW DEVIATION INDEX • • • ‘ . 

WATERSHED 1 BIT FCR RESTRUCTURING TIME-AREA hISTOGRAM 
WEIGHTING FACTOR FOx S TCP. AGE RAIN GAGE 
SECOND WEIGHTING FACTOR FOR STORAGE RAIN GAGE 
NUMBER OF WET SUMMER MONTHS . 

AVERAGE 4 A. M. TEMPERATURE OVER WATERSHED 
AVERAGE 4 P.M. TEMPERATURE OVER WATERSHED 
ENDING OF WATER YEAR "• • *' 
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4.0 = RAIN ■ ; 

INDEX CF MONTHLY PREDOMINATE FLOW TYPE 
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SOURCE PROGRAM LISTINGS 


MAIN ****<•«■** KENTUCKY WATERSHED VdUEL (VERSION OF JUNE 6, 1 C 7MAIN0001 

BASED ON STANFORD WATERSHED WAT ERSIltD MODELS III L IV MAIMOOOP. 

MA ! NPO??. 

IS FLAG IS SET TO BRANCH AS FOLLOWS: MAINO004 

11 - BRANCH TU NOMINAL KWM INITIAL RUN MAIN^DCS 

2 - PLOTS ONLY, NC NEXT YEAR OF DATA MAINOOD6 

3 - NO PLOTS, NTXT YEAR DATA WITH NEW WATERSHED PARAMETERS MAIN0OO7 

4 - NO PLOTS, NEXT YEAR DATA WITH OUT NEW WATER SHED P AK AMETEP SMA1NOC 08 

5 - PLOTS .NEXT YEAR DATA WITH NEW WATERSHED PARAMETERS MAIN0009 

6 - PLOTS, NEXT YEAR DAI A WITHOUT NEW WATERSHED PAR AMETFRS 'ATN.'O’.O 

7 - PLOTS, WITH SIM AND UBS SUPERIMPOSED ONLYIBOTH MONTH AND YfPMA INCDl l 

8 - PLOTS, WITH SIM AND DBS SUPERIMPOSED ONLYtMUNTHS SCALE) MAI WOO 12 

9 - NC PLOTS, NU NEXT YEAR DATA MAINC013 

‘ MAI NOD l A 

; ' MAINC015 

0,1 MENS l CN TITLE! 181 , ‘DRSFI366), DSSF1366), CONOPT! 16) , MAIN0016 

1 THSFD! 744,3) , PEAKS! 6) , PHRS 16 ) *NSPTS( 6 I , THSFDM! 6 ) »$5 ( 33 7 ) , «AIN;0I7 

A TMRTF ( 12 ) , T MSTF ( 1 5 , 3 I » MAIN0018 

A ; CTRI 199) ,FIRR( 151 ,RICY (37 ) * DPSE! 366 ) » BTR II 99) * MAtNQOl 9 

COMMON/ PLOTC/DRSF.DSSF, CONOPT, THSFD, TMS TF , STMROS ( 121, 6), DPY, TITLE, MAIN 0023 
2KFLAG, I CFLAG, MAINC02! 

1 1 ENDEC , STUDY ! 2 ), PEAKS , PHRS ,NSPTS , THSFDM, T FMAXD, TMRTF , J PLOT , MATNCG22 

2 NCTRl,CTRt»FlKR»R ICY* DPSE , PDDFSM * 5P3FLW.SPT WCC »SPM * FLD I F , MAIN0023 

3 XDNFS.FFOR.FFSI , MRNSM, DSMGH, PXCS A ,KMP P , KGPM3, AREA , F I MP , MAI. NOD 24 

A SATRU99) .UHFAC99) , MA1N0025 

3MNRD, MAIN 002 6 

4 ; FWTR,VINTMR,8UZC,SUZC,LZC,FTLF,SUBWF,GWETF,STAC,RMIR, MAIN0027 

5; BIVF,OFSS,CFSL,UFMN,OFMNI S, I FRC.CSRX, PSKX, CHCAP , FXQP V , MAIN0023 

6 ! riFNLR.DFRC »GW$ , UZS «L Z S , BTNX , IFS, RFH/C , 3FRL, BFNRL, pFNHR, IF PRC, M A I NO 329 

7 I I FRL , LSH.FT , Nrt TR 1 , FNTR I , MX TF I ,UCST R I , BTF I, TF CF S , FPAE T ,>P£R , MAIN0C39 


TPLR » V I NTCR ,HSE »NRTP I , SP I F,C BP ,SPOR »OFUS,PFUS I S » OFR , OFR I S , PE TS , MAIN O'" 1 3 1 
RHFO, URHF , AM I F , AMNET , AMPET , AMSNE , AMF S I L , S A SFX , S AR AX , SRX , V W I N , MAIN00 3 2 

* MA1N0033 


HCFS.PHFMC.SSRT «OFrF,DFRF IS, EQDF , £« ' F I S , SQFP F , SCiFP F I , 


8 ! SDEPTH, MULTI , I D , A SV , WT4AM , T4PM , S AX , T \,\SM, SPTW , STMD , S FMD , A SMRG , MAINC034 
XDEPEN0I2I . VARINI2 ) ,MPTS,JIJI DI , IYR.TJDARY!?,! 1 , MAIN0035 

YTOMARY! 7, 1) .TUSARY15 ,6, 1),TSDARYI6:,1 ) ,TSMARY(8, 1), MAIN DO 3 6 

ZTS S ARY I 3 , G , l I , T SMCRY ! 1 ) , TSDCR Y ( 1 ) , TSP.mR Y ( l ,6 , l ) , I MAIN0037 

WliORARY! 1,0,1) , MAIN 3033 

CORSFT ( 366 ) , DSSF T ( 366 ) , M 1 ,Nl « MULT , TMRT r T ( 1 ? ) , TMS TFT ( 12 I MAIN0039 

COMMCN/COMHA/EMBFNX, FMUWS.FMI FS, EMLZS, EMSTAM, EMUZC, EMUZS, TMBF, M'AINOOOl 
1TM I F , T IPRfc C » TMS£ , CRT MI , DDl W ,D M NT , DM X T , Dkg PM , DR HP * C!< S OF . OP I- T , E 0 L Z S , M AIN 3302 
2EPC.M , SERA , SFRR , SE SF , S.JFR , THSP , 7PFS I L , 1 MNET, T V DF, TMPET , f'RPM , TMSNE, M A I NOD 0 3 
3TMSTP I , T200FH ,T20PRH , T MRTF I , JULDAT 1 , MAIUD0D4 

4TFMAXY»UZC»AETX»0AY, NSGiiD » AEX9 0, SIAM, MDSD P ,RGPM, NDSDR , YR1 , MAIN0005 

5TRHF , MAI NOQ 06 

5S I NDEX, INDEX, AEX96, M AXI , YR2 , BYLZS ,.8YIPS , 9YUZ S MAIN60 07 

01 MENS I CN KPLC1TC! 1 P3 2 ) , KCOMMA ( 12087) MAT NOOOR 

EQUIVALENCE 1 DPY ,RPLllTC ! 1)1, (CRFMI .RCOMMAIl) ) .. MAIND0D9 

DI MENS I C N CRFM It 2? ) , DO I W( 366 ) , . ! MAIN 03 03 

1 DM NT ( 366) , DM XT ( ? 66 ) , DROP -H ’66) , DROP ( 066,24) , MAINHnm 

2 DRSGP ( 366 ) , DPFT ( 366 ) ,EDLZS(366) , MAINOOOO 

3 EMBFNX! 15,3) .EMGWS! 15.3) , EM IPS! 15, 3) ,EMLZSI 1 5, 3 J , EMS I AM ! 15 , 3 1 , MAIN03C4 

4 FMUZC! 15,3 ) .EMUZS! 15, 3 I ,EPCM! 12) , • MAINOOOO 

5 SERA! 22) , SERB < ? 2 > , S ESF ( 22 ) , SQER ( 22 > , MAINOOOO 

6 THSF ( 24 ) , TKBF ( 1 5 , 3 ) , T NFS l L ( 1 2 > , TM I P< 15 , 3 ) , TMNETU2 ) , MAINOOOO 

7 TMOF! 15,3 ) ,TMPPT ( 12 J ,T MPREC ( 15,3) , TMRPM ( 12) , TMS El 1-5 ,31, MAINOOOO 

8 TMSNE I 121 .TMSTFI (15,3 ) , T20DFH! 21) , T20PRH ! 21 ) , MAINOOOO 

9 TMRTF I ( 12) , JULDAT (6 ) , TFMAXY ( 366 ) , MAINOOOO 

REAL LZS.IFS MAINOOOO 

HEAL MNRD , MAIN0040 

INTEGER TUMARY, TSMARY, TODAR Y, T SOAR Y , TOSARY, TSSARY MAIN0041 

INTEGER PEAKS, PHRS, CONOPT, NSPTS . MAIN0042 

INTEGER S I MDEX , S I NDCT, MPDAY ( l 5 ) MAIN0043 

INTEGER NUNIT/2/, IER MAIN0044 

INTEGER 1CCN/1/ * MAINOOOO 

REAL SUMO) , APRECC3) ,OOUT( 15) MMN0046 

INTFC.F R MONTHS ( 64 I , PMflNTH , PDATE , EMONTH, FDATE . WYFAR .DATES , PDA Y MAIN004 7 
DATA MONTHS / ' JAN • , 0 ,0 , 0, 4, ' F EB • , 31 , 31 , 31 , 5 . • MAR ',59,59,59,6, HAIN0048 
1 ' APR • ,90,90,90,7, 'MAY • ,120, 120,120,8, *JUN ',151,151,151,9, MAIN0D49 

2'JUL ', 181,181,181,10, 'AUG ♦ ,2.12 ,212,212, 11 » 'SEPT' ,243 ,243 ,243 , 12, MA IN0C50 
3* OCT • ,273,2 73,274, l ,'NUV • , 30 4, 304 , 305 ,2, • DEG ',334,334,335,3, MAIM0051 
4 ' J AN ',305,365,366/ MAINC052 

READ 15,9) TITLE MAINOOOO 

FORMAT! 18A4) MAINOOO'"' 

CALL DSUPDT / MAINOOOO 

GO TO 306 MATNOO^T 

CONTINUE MA INOO 54 

BACKSPACE 5 MAIN0055 

BACKSPACE 5 MAINC056 


ORIGINAL PAGE IS 
OF POOR QUALITY 


«!*«♦**, 




r I S^i L PAGE nr 
^OOR QUALITY 


REWIND 11 ‘ 

REWIND 18 

CALL TAPCUNCNUNIT, ICONrlER) 

CALL DSUPDT 
906 CONTINUE 

ISFLAG = 1 
JPLOT=0 
l DFL AG= 0 
IENDFG=0 
l D= 1 
10 = 5 

WRITE ( 6 1 9990 ) I DEL AG f I ENDFG , ISFL AG, I 0 
CALL Rb AD { l RSTRT) 

CALL READ ( PRCNTH, PDATE , EMQNTH, ED ATE , NY EAR , WYE AR ) 

00 101 KR D= 1 , 16 
LOi CALI RfcAD(CONUPr ( KRD ) ) 

PMCNTH= ( ( P MCNTH- 1 1*5 ) + 1 
MS BDIC= MONTH S ( PNGNTH) 

LE APY-PMONTH+ 1 

IF { MUD { WYE AR , 4 ) • EO. 0) LEA PY = PMONTH+2 
IF ( MOD ( NYEArt 1 4 ) LEO. 0) LEAPY= PMQNTH+3 

OAT E S = MCNTHS ( LE APY )> PDATE ' * 1 

PD A Y= ( MONTHS ( LEAP Y ) ) 

month=mlnths ( pmonth+4 ) [ ;■■■. 

EML)NTH= ( ( EMCNTH- 1 )*5 )+ 1 ^ . 

LDAY=MCNTHSILEAPY+5I 

IF ( PMGNT H • EQ .F MONTH ) E DATE = M0 NTH S ( LEAP Yl+EOATE 
IF I ( PMONTh* NE .C MONTH ) . AND. ( MONTHS ( E MO N T H ♦ 4 ) , N E .4 ) I 
1FP AT E= ( MON T H S C L E A P Y> 5 ) * ED ATf ) 

IF ( ( PMONTH.NF.EMONITH ) . AND. ( MUNTHS ( EMONTH+4 ) . EQ.4 ) 1 
1ED AT E= MONTHS (2 ) +EDAT fc . 

IF ( ( MONTH. EQ • 5 ) • AND* ( 5D4TE • EQ .60 ) ) EDATE=366 
1ST ART = CON(JPT l 15 ) 

nfp=3 *■ *'*”■■■ * 

IF (CONGPT ( 15) • EQ • 2 ) NFP=1 

CALL READIDT ♦ AREA I f NQf LOOKUP 1 1 PLOT ) ( " : n ; ■' * 

10 = 6 — ** -.**.. .* 

DO 503 1=1, NO 
CALL READ (Q(I) ) 

>03 CONTINUE ' 

WRITE (6,9990) i DFL AG , I ENDFG , ISFL AG , ID ** 

9990 FORMAT ( / 3 X » • I DFL AG= • , 1 5, 

* 9 1 ENDFG= • ,1 5 , • ISFLAG* • # 15, • MA IN= % 15) 

10 GO TO (1,2,3) , I START 

I S FL AG=0 ^ 

ID *2 

WR I T E ( 6 , 9990 ) I DFL AG , l ENDFG , 1ST LAG , I D 

CALL KWMAINI ISFLAG) 

, CALL WOKS TC (PDAY, DATES ,. MONTH , C DATE , MS RO I C, PDATE, L DAY ) 

CALL ZERjP ( PDA y , OAT ES , MONTH, F DATE » MS BUI C , PDA TE, LDA Y ) 

. Y CALL FQRCST (PDA Y, DATES, MUNOii, CQATF ,MSBD I C ,POATE,l DAY , MPD AY) 

Y CALL I NT ( NO * 0 , OT , ARE A I , L GOKUP , IPLUT ,NFP , MSBD I C, KPDA Y , D I FFS, 

ID I F FMP , D 1 FFP , D I FFPP , SUM, D 1 FFR , DI FFRP , APREC, D l FFPR , D I FP P , QOUT , 
2QMAX , PHRO ) 

CALL OUT PUT ( DI FFS * D t FFMP, DIF FP , D I FFPP .SUM , DIFFR t D IFFRP , APREC, 
101 FFPR , C I FFPP , QOUT , OMAX , PHRO, MSBD I C, MPD AY ) 

IF ( lRSTRT.EQ.il GO TO 805 . - , Y--Y* 

STOP . ' ' ' - _ ■ ■ 

16 . CONTINUE i 

I CONTINUE 

- 10 = 6 * 

WRITE! 6,9990) I DFL AG , l ENDFG , ISFLAG, ID 

CALL WORSTC ( PDAY, DATES, MONTH ,F DATE , MS BD I C, PDATE, LDA Y ) 

CALL ZEROP (PDAY, DATES, MONTH, b OAT E , MS BD I C , PD ATE ♦ L DA Y ) ] 

CALL FORCST (PDAY, DATES, MONTH, bDATE , MSFO I C , PDATE , LDAY , MPDAY) 
CALL I.NT(NQ,Q,DT, AREAl , LOCKUP , I PLOT , NF P , MS 8U IC , M P DAY ♦ 0 f c F S , 

ID l FFMP , C I F FP,DIFFPP , SUM, DIFFR , D IFFRP , APR EC , DI FFPR ,D IFPP,UJUT, 

' 2QM AX, PHPO ) 

- CALL OUT PUT ( D1FFS, D I FFMP,D I FF P,DI FFPP, SUM, DIFFR, DIF FRP, APREC , 
1 D I F F P R , D 1 b F P P , 0 OUT , 0 W A X , P HR 0 ,-M S BOIC,MPDAY ) 

IF ( l RSTRT . EQ. 1 ) GO TO 305“ 

STOP ■■ - . ' ; , 

.7 CONTINUE - ,Y . 

GO TO 20 
! CONTINUE 

CALL PASTRN( PDAY, DATES , MONTH, EDATE , MSflO I C , PDATE , L DAY , MPDAY ) 
CALL I NT (NO ,Q , DT , AREA] , LOOKUP, I PLOT , NFP , MSBD l C, MPD AY , D I FFS • 

10 i FFMP, D IF FP, DI FFPP, SUM, DIFFR ,DI FFRP, APREC, D I FFPR f 0 l FP P ,OOUT , 
2QM AX , PHRO ) 

CALL OUTPUT ( DI FFS, DI FFMP, D I FFP , DI FFPP , SUM ,DI FfR,D IFFRP ,APRFC, 

. v IDI FFPR.Dl FFPP, OUUT, UMAX, PHRO, MSBDIC, MPD AY) 

IF ( IRSTKT.EQ.1 ) GO TO 805 
STOP 

) CONTINUE ' ^ 

READ (11) ( RPLOTC ( I ) ,1=1,183?) 

READ (18) (R COMMA ( I ), 1=1,12087) 

CALL READ (GW S,UZS,L2S,C FNX, IPS, UZC, SIAM) 

REWIND 11 
REWIND 18 

WRITE (ill I RPLOTC ( I ) , 1=1, 1832) 

WRITE (18) ( K COMMA (M , I - 1 ,12 087 ) * 


MA IN 00 00 
MAINOOOO 
MA1N0057 
MAINOOOO 
MAI NCOS 8 
MAIN0059 
MAIN006D 
MA1N0061 
MAIN0062 
MAIN0063 
MA I NO 065 
M A I N 0066 
MA IN 00 67 
MAIN 0063 j 
MAIN0069 j 
MAI NOO 70 
MAIN 00 71 
MAI NOO 72 
MA l NOO 7 3 
M A l NOO 74 . 
MAI NOO 75 
MAIN0076 
MA I NOO 77 
MAI NOO 70 
MAIN 0079 
MA I NOG 80 
MAING081 
MAI NOO 82 
MAIN0083 
• MA1NOO0A 
MA INC085 
M A IN 3086 
MAI NOO 87 
M A I N} 0 0 H R 
MAINOOOO 
MAINOOOO 
MAI NOO 91 
MAIN0092 
MA INC 093 
MAIN0094 
MAI NOO 95 
MAINC096 
M A I NOO 9 7 
MAINOOOO 
MAI NOO 9 9 
M A I N *U DO- 
MAIN 0 1 0 1 
M A I N 0 1 0 2 
MAIN 0103 
HA IN 01 04 ■ 

M A T N »3 1 05 
MA I NO 1 06 
MAIN 01 07 
MA I NO l 08 
MA I NOLO 9 
MM NO 110 
v Y «1 N01 1 1 
H A I ^Hi? 

Yf A I. NO 1 1'3 
MAT NO 114 
. MAI NO 115 
MAI NOL 16 
MAT NO! 17 
MAI NOll 9 
MA I N01 1° 
MAIN 0120 
MAI MOl 2V 
MA1N0122 
MAI NO 123 
MAIN'3124 
MATN0125 
MAI ‘N 01-26 
MAIN 012 7 
MAIN 0128 
MAI NO 1 2° 
MAT NO 1 30 
MAIN0131 
M A I N 3 1 3 2 
MAIN0133 
MAIN0134^ 
M A I N 0 1 3 5 
MAI NO 136 
MAI NO 1 37 
MAINOOOO 
MAINOOOO 
M A I NOO 0 0 
MAINOOOO 
MAINOOOO 
MAINOOOO 
MAINOOOO 
MAINOnQv 


nr'siis «t*». 
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SUBROUTING KWMAI N( l RFl AG) 

COMMON/ PIP rC/DRSF , 05 SF . CONOPT , THSFD , T^S TP * STMRUS < 12 i . 6 ) .DPY, TI TL E 
2KF L AG y l OF L AG * 

UENOFG, STUDY ( 2) , PEAKS* PHRS, NS PTS t THSRDf4 f TFMAXD, TNRTF f JPLOT . 

2 NCTRl .CTM , F RR , RT CY , DP S L , B L v OF S M , IP BFT W , S P F WC C , S PM , F L D 1 F . 

3 XDNRS » FT HR rF'FS l. frtPN S» v fJSHGH f PXCS A ,F MPF » RCRMB, AREA , F ! M P . 

A SATRI , UHF A * 

BMNRD, 


4 

5 

6 

7 

8 
9 
A i 


C 

C 


F W T R r V I N T M R . , R U Z C , 9 U l C . 1 7 C i E T LF , SIJ 3 H I , G W F T F f S I A C , R m I p f 
B I V F , Of S S , 0 F SL f OF >L‘*| * OF m I o » ! f P C , C S* X , rSPX, CUC VP , F XOP V , 
dFNLrttCFKC . GWS,U£S iLZS'* BFNX, IFS , fjrHKC , BFRL ♦ dFNRL , BFNHR, f FPRC, 

1 FRL , LSHFT rNlTTKl , FNTR l , MX-TRI ,NCSTR 1 * fTFCFS, EPAfcT ,FPFR , 

TPLR, VINTCRt HSc:, NR TR I »SP1 K,CBF » SPUR , OPUS* OFIJST S « OF R « OPR l 5 » P 5 I S , 
RHFO, UP.HF, AM I -r AS.TfcT , A >1P£ T » AMSNF , AmF 5 I L , S A $ F X , S A R A X , S R X , V w I N , 

, . WCFS r RHFMC ♦ SSRT i OFRF » CJFRF IS , EGO F , FODF I S , SOFRF , S CF Pf 1 , 

B [ S DEPTH* MULT I t ID,ASM,WT4AM ,WT4,PM* SAX , TA-NSM* SPTW , STMD , SFMD , A SMRG * 
XOE PF-NDi 2) , VAR IN [2 ) , N P T S , JUl DI r I YR , TiiOA A V { 6<, 1 ) , 

Y TO MARY ( 7 , l » , TUSARY J 6,6, l ) , TS.‘HRY(&* l) , T SMAftY ( 8,1) , 

ITS $ AR Y ( 3 * 6 , 1 ) , T S M C R Y ( 1 ) , TSPCk Y ( 1 ) , T SR ARY ( 1 * 6 , 1) , 

WTORARY ( 1,6*1), 

CDR SF T (366) , DS SF T ( 366 ) , M I , N I , MULT Y TMRTf T { 12 ) , TMSTFTC 12 ) 

CO MMCN/COPM V/EM3FNX , F^GrtS , F.-i I P S , EML ZS , Z*S f AM, FMUZC , F M U2S , 1 »>MF* 

1TM I F, TMPRFC, IMS b, CR F v 1 , DDT W , DMNT , DM XT ,DRGPM, DRHP , PR SGP,DPfcT , bDLZS 
2 EPCM * SERA , S ERR , S FSf , Sw ER, THSF, TmFS I L , T MNE T , T MOF, TMPF T , TMRpH , TMSNE 
3TMSTF I , T2 C OF H, T 2 DPR H , TMR TF l , JULDAT , 

AT F M A X Y , UZ C r A ET X , D A Y * NS G RD * A F X<5 0 , S I AM t NOS 0 P , RGP M * N OS PR , YR 1 , 

5TRHF, 

5SI NOE X , INDEX, AEX96, MAXI , YR2 , B Y LZ S , 3 Y I FS , B YUZS 
KENTUCKY RATFRSHEO MfJDfcL (VFRSIUN OF JUNE o, 1970) 

BASED ON STANFOPO WAT fRSHcD MODELS III € IV 
DI MENS I ON BTR l ( 99 ) , CONUPT ( 1 6 ) , CRFM [ ( 22 ) , CTR 1( 99), DDT W( 36.6) , 

1 j DMNT( 3 66), 0MXTI366) » DPSEl 366) * DR(iPM( 366) , OKHP ( 366 , ;?4 ) , 

2 DRSGP ( 3t>6 ) , D y F F ( 3 66 ) ♦ DR S F ( 3,66 ) • 0SSF( 366) ♦ E DL 2 5 ( 366) , 

3 EMBFNXT 15,3) ,fcMGwS( 15,3) tb-MlFST 15, 3) , E^L ISl 15, 3 ) » F MS I A ^ ( 15,3) , 

4 EMUZC ( 15, 3 ) , CMUZ S ( 15,3), EPCM ( L2) ,F f PH ( lb ) , ME DCY < 12) , *F.DW Y ( 1 2) , 

“ R ICY < 37) , SATRK99), SERA ( 22 ), S ERR ( 2 2 ), S ESP (.2 2 ) * SOER (22) , 

THS F ( 24 ) , TITLE (13), TMBP( 15 , 3 ) * T M F S I L ( 1 2 ) ♦ I'M F ( 15, 3 ) , T M Nf T < 1 2 ) , 

T MOF ( 1 5 , 3 | i IMP E T ( 12 ) , 1 MR K PC (15, 3 ) , TMR PM (12) , T v RTf ( 1 2 ) , TM $ E (15 , 3 ) 
TMSNE ( 12) , TMSTf ( 15,3) , TMSTFI ( 15 , 3 ) , TPOOFHt 2 L ) ,T20PRH ( 21 ) , 

UHF A ( 9 9 ) , T M RT F I (12) ,JULDAT(6 ) ,THSFO( 744 , 3 ) , TFM4XY ( 366 > , 

PEAKS! 6 ) , PHRS ( 6 ) , NSPT S (6 ) , ThSFDM ( 6 ) 

D I MENS ! ON fc P L QTC ( 1 5? 2 ) * P CUM \t* ( 12037 ) 1 
EQUIVALENCE (OPYrRPL flTC ( 1)) ( C.P’F Mii, RCGMMA ( 1 ) ) 

LOGICAL LSHFT 

INTEGER COSDR'* CNY CONUPT , DATE , DAY , OP Y , r HSGD , HOUR , HRF , HP l , 0 D A Y , 

1 PKD, RHPD , R HP H ,R 5RD , SO Ml), SGR T , STIR T? i Yfc AR , Y» l , YR? , PHRS , S INDEX 
INTEGER TO MAR Y , TS'MAk Y , T 00 A R Y , T SOAR Y , T 0 S A R Y , T S S A P Y 
REAL I FPRC , 1 FRC* l FRL, I FS , L ZC , LZRX , L2S , LZSR, MHSM, MNRD , MRNSM, NHPT 
DAT A MEOCY/ Of 3 l , 59 * 90* 1 2 >, 151 , 18 L , 2 1 2 , 243 ,2 73 , 304,334/ 

DATA MEDVi Y/ 504 , 334* 565 ,3 1 , 59', '99', 12 If 151 • 131 , 212 ,243, 273 / 

REAL MXDRS F , MXDS SF , MXMK SF , MXMS SF , SSQD 

REAL SSQM,SS3DI ,SS4MI ,VDRSF,VDSSF 

REAL VMRSF , VMSSF , SODRSF, SDDSSF , SO MRSF , S D M S S F, S MD 0 , S M M D , S M S Q 0 , 

♦ SMSQM 

REAL M DR S F ,MDS $ F f MM R S F , M MS S F 

99,130,116 . / *«**:*•?* • ::■**». ^** ; ^ ^ -> T ' *,• 


5 

6 

7 

8 
9 
A 


98 

99 



100 


102 


103 


104 

105 

106 
107 


108 


109 


IF (I3FLAG) 

IBFLAG = 13 
RETURN . /;■ 

CONTINUE 

CALL READ(GWS,UZS,LZS,BFNX, IF S f U2C t S I AM) 
DO 102 K I A = 1,99 

SATRI (KIA) as 0.0 . . .w,iW ^ ^ 

CTRTIK l A) = 0.0 

BTRKKIA) = 0.0 . v 

UHFA(KI A) = 0.0 ■■■:■ * : ' y 

CALL READ ( NCTR l ) . 

DO 103 KRD = 1, NCTR I 
.CALL READ( CTR I (KRD) ) 

1 F ( CONOPT ( 7 ) .NF. 1) GO TO 110 

DO 104 KRD = 1,15 .^,-f . Zv 

CALL RE AD ( F TRR TKRO ) ) 

DO 105 KRD = L, 3 7 . \f.. 

CALL READ(RICYIKRO) ) '5* 

DO 106 KRD = 274,360,10 -Vf* 

CALL READ ( OPS E( KRD !) 

DO 107 KRD = 1,273,10 
CALL REAOiDPSE(KRO) ) 

DO 109 IDAY2 = 1,9 /.»•. 

DO 108 IDAYi = 274,360,10 
DAY = IDAYI ^ 1 0 A Y 2 

DPSE ( DAY ) = DP-SEC IDA YI ) " 

DO 109 IDAYI = 1,273,10 ... 

DAY = IDAYI ♦ I0AY2 
IF C DAY .GT. 273) GC TO 109 
DPSE ( IDAYI ) 




.V *1 1r> v. • £• * 


. .■ * i r '..J 


.M&f, -» * 


DP SET DA Y ) 
CONT 1NUE 
OP SF ( 3 66) 
DPSE (365) 
DP SET 364 ) 




DP S6( 59 ) 

DPSE (36 3) 

. DPSE (363) 

CALL READ! BDDFSM, SPB FL W, SPTWCC ,SPM , ELD I F , XDNFS, FFDR , FFSI .MRNSM* 
DSMGH , PXC S A ) t . 


KWMNOOOl 

, KWMNTOO? 
KWPN0003 
KWMN0004 
KWMN0305 
KWPN0006 
KWMN0097 
KWMN090B 
KW^N CO 09 
KwVK3O10 
KWMrOOll 
KWMNC01? 
KWmnOO 13 
KWMNuO 1 4 
KWMNOO 15 
KKPN0016 
KV M N **0 1 7 
KWMN031R 
KWMNUO 1 Q 
KWMN0320 
KWMN0021 
KWPMCC 22 

,KWMN0D23 : 

, K WMNCO ?4 
KWMN0025 
KWVN0026 
KWMNC327 
KWMN0028 
XWPN0029 
KWMN0030 
KWMN0031 
KWPN003? 
K WMNCO ^ 13 
KWMN0034 
KW^N0035 
K WMNOO 36 
K WMNCO 3 7 

,k;wmn?o?b 

KWMN0039 
K WMNOO 40 
K WMNOO 41 
K WMNOO 4? 
KWMU0943 
K WMNOO 44 
kwmn:045 
K WMNOO 46 
KWMN0047 
KWMN004S 
K W MN 0049 
K WMNOO 50 
KWMN005! 

K WMNOO 52 
KWMNO n 53 
K WMNOO 54 
Ki WMNOO 55 
K WMNOO 56 
KWMN0057 
K WMNOO 5 8 
KWMN0059 
KWMN0060 
KWMNOO 6 1 
K WMNOO 62 
KWMNOO 6 8 
KWMNOO 64 
KWMNOO 65 
KWMN0066 
KWMNOO 67 
KW w *NOO 6 
KWMNOO 6 9 
KWMN3070 
KWMNOO 71 
KWMNOO 72 
KWMNOO 73 . 
K WMNOO 74- 
KWMNOO 7 5 
K WMN0076 
KWMN0077 
KWMN0070 
KWMNOO 79 
KWMNOO 80. 
KWMNOOBl 
KWMNOO R2 
KWMNDOB? 
KWMNOOR4 
KWMN0085 
KWMN0036 
KWMN00B7 
KWMN008F 
KWMNOO R9 
KWMNOO 90 
KWMN0091 


To 

QVAUiy- 


B-4 


^ |.vl; 


>; 

% 

I 

o 


no 


‘BFNLR .GT. 0.9999) GO TQ HI 


111 


0.5 


112 


113 


114 

115 


FI HP - 

0.011 


■ FWTR 
GO TO 


114 


CALL READ ( RMPF ) * 

CALL READ ( R G P M 8 , A R F A * r 1 MP , FWTR ) 

CALL READ ( V ! NTMR , 8UZC * SU/C tLZC# ET Lf ♦ SU3WF f GWETF* Si AC t PM I R t 8IVFI 
CALL READ < UFSS, OESL ,UFMM, UFMMS. I FRC ) 

CALL READ ( CSRX , f S« X , C HCAP , EXOPV f llfNlR » BFRC) 

BFHRC = BFRC**( 1.0/24.0) 

BP RL = -AL0G1BFHRC) 

9FNRL = 0.0 

1 F ( BFNLR .IT. 0.00001 .OR 
BFNHR ™ 1.0/24.0 ) 

BFNRL = -ALOGCBPNHR) 
l F PRC = I F R C * *( t • 0 / 9 6 • 0 ) 

I FRL = -ALOGUFPRG) 

LSHFT = .FALSE. 

IF ( CONOPT1 13 ) .NE. 1) GO TO 113 
NRTRI = NOTRI 
FNTRI = NCTRI 

MXTRI = aO.O*^EXQPV)fFNTRl 
IF < MXTR I .Gb. 98) WRITS (6,1) 

FORMAT { 29HWARN iNG : EXOPV ARRAY OVER RUN) 

NCSTRI = 99 
DO 112 KIA = It NDTRI 
BTRltKlA) - CTRllKIAL 
TFCFS =1.0 i i 

CALL RT VAR Y (CTRI , SATR I ,BTRI , CHEAP ,NBTRI t MXTRI* NCSTRI * EXOPV , LSHFT 
l TFCFS). !* 

EPAET = 0.0 
FPER = 1.0 - 
IF (FPER .GT. 

TPLR ?= 100.0 
FPER = 0.01 
GOTO 115 

TPLR = (1.0 - FWTR) /FPER 
VINTCR = 0 • 25*V I NTMR 
HSE = 0.0 
NRTRI = 0 
SPIF = 0.0 •» 

CBF =• GWS*BFRL*(1.0 + BFNRL ♦BF NX) 

SPDR = 0.0 
QFUS = 0.0 
OFUSIS =0.0 
OFR = 0.0 : 

OFRIS = 0.0 
PEIS = 0.0 
RHFO = 0.0 
URWF = 0.0 
AM l F = 0.0 i ■ • 

AM NET = 0.0 
AM PET - 0. 0 
AMSNE * 0.0 
AMFSIL = 0.0 
SASFX = 0.0 
SAR AX = 0.0 
SR X - CSRX 
VWIN “ 26.6888*AREA 
WCFS - 24.0*VWIN 
RHFMC = 0. 02 5/WCF S 
TFCFS = CBF* WCFS 
SSRT = SORT (OFSS;) 

OFR F = 1020 . 0*5 SRT/ ( OFMN^QFSL ) 

OFRFIS = 1 020. 0*S SRT / { QFMNl S *0 FSL ) 

EODF = O.OC982*((UFMN*CFSL/SSRT)**0.6) 

EQDFIS = 0.00982*< ( UFMN I5*(JFSL /SSR.T ) **0.6 ) 

SO FRF = OPRF 
SOFRFI = OFRFIS 
SDEPTH = 0.0 
I YR-0 
MI =0 
NI=0 

MULT = 0 •'[ 

MULT I =C ONOPT ( 10) 

10=1 

WRITE ( 6 1 9990 ) MULT! » CONOPT(IO), CONOPTIlSIf iRFLAGf ID 


9990 FORMAT ( /3X, T 


MULT 

15, 


-15, 


116 

C BEGIN 


♦ • CO NOP T ( 15 ) — 

ASM = 0.0 
IF ( CONOPT ( 7 ) .EQ. 0) GO TO 116 
WT 4AM = 60.0 
WT4PM = 60.0 
SAX = 15.0 

TANSM = 0.0 , .. 

SPTW — 0.0 

STMD = 0.7 = 

SFMD = 0.7 

ASMRG = 0.0 ’ 

CONTINUE 


I BFLAG= 


CfJNUP T ( 10 ) = 


',15, 
KWMA I N= 


15) 


NE “^ 




KWMN0092 
KWMN0093 
KWMN0094 
KWMNOO^S 
KWMN 1096 
KWMN0097 
KWMN 0098 
KWMN 00 9 9 
KWMNO! 00 
KWMN 01 0.1 
KWMN 01 02 
KWMN 01 03 
KWMNO l 04 
KWMNO 1 05 
KWMN 01 06 
KWMN 01 07 
KWMN01 on 
KWMNO 109 
KWMN0110 
KWMNO l 1 1 
KWMNO t 1 P 
KWMNO L 13 
KWMN 01 14 
KWMNO 1 L 5 
♦KWMNO l 16 
KWMNO l 17 
KWMNO 1 1 8 
KWMNO 1 19 
‘KWMN0120 
KWMN 012 1 I 
KWMNO 122 
KWMN 01 23 
KWMN0L24 
KWMNO 125 
KWMNO l 2 6 
KWMN 01 2 7 
...KWMNO 1-2 8 
KWMN01 2 Q 
KWMN01 30 
KWMNO l 31 
KWMN013? 
KWMN 01 33 
KWMN 01 34 
KWMN0135 
KWMNO 1 3 6 : 
KWMNO 137 
KWMN 01 38 
KWMN01 ?9 
KWMN0140 
KWMNO 1 4 l 
KWMNO 14 2 
KWMNO 143 
KWMN 01 44 
KWMNO 14 5 
KWMNO 1 46 
KWMNO] 47 
KWMN01 48 
KWMN01 49 
KWMNO l 50 I 
KWMNO l 5 1 
KWMNO 1 52 
KWMNO l 53 
KWMN01 54 
KWMNO l 55 
KWMN0156 
KWMN01 57 
KWMNO! 58 
KWMN 01 5° 
KWMNO 160 
KWMN016 I 
KWMN0162 
KWMN0163 
KWMNO l 6^ 
KWMNO 1 65 
KWMNO 166 
KWMNO 167 
KWMN016B 
KWMN 01 69 
K W MN 01 70 
KWMN0171 
KWMN017? 
KWMN0173 
KWMNO 1 74 
KWMN 01 7 5 
KWMN 01 76 
KWMN 00 00 
KWMNO l 82 


B-5 



117 BYLZS = LZS 
BYUZS = U IS 
BVGWS * GWS 
BYIFS = IFS 
DO 118 K I A = i t 22 
CRFMI ( K I A) = 0.0 
SESFIKI A) = 0.0 
SERR(KIA) = 0.0 
SEK A ( KI A) = 0.0 

118 SOORVKI A) = 0.0 
RGPM = RGPMB 
DO 110 KI A = 1, 21 
T200FHIK I A) = 0.0 

119 T20PRH ( KI A ) = 0.0 
DO 120 KI A = 1,12 

120 EPCM1KI A) =1.0 
RDPT = 0.0 
P 0 AY = 274 

903 GALL READ ( YR l , YR2 ) 

• TOD-ARY i-U I YR ) =YR2 
TOMARY { 1 , I YR)=VR2 
DP Y = 365 
I F (MOD ( YP 2 , 4 ) .CO. 0 ) DPY = 366 
I F ( C.ONUPT ( 1 ) • £0. 1) .CALL RE AD (CDS DR , NDSDR } 
NO SOP = 0 
ME DRY ( 5 ) = 59 

IF (DPY .EO. . 366) MED WY 1,5) = 366 
C READ EVAPORATION DATA “ ~ 

I F ( CUNJPT C 3) • N f • l) GO TO 125 
DO 121 KRO = 274,3*0,10 

121 CALL READ COPET ( KRD ) ) 

DO 122 -KRD = 1,273, 10 

122 CALL REAO( DPcT(KRD)) 

DO 124 IDAY2 = 1,9 

no 123 ID AY 1 = 274,360, 10 " 

>■ . ... DAY = IDAY1 ♦ IDAY2 . 

123 DPET(DAY) = DPETLIDAYl) 

DO 124 IDAY1 = 1,2 73,10 
DAY = IDAY1 *■ TDAY2 
I F { DAY .GT. 273) GO TO 124 
DP ETC DAY! = DPETC IDAYl ) 

124 CONTINUE 
DPETI 3661 = DP ETC 59) 

OP ET C 365 ) = DPET (363) 

DP ETC 364) = DP'ET ( 363 ) 

GO TQ 127 

125 l F ( CON OPT ( 3) .EO. 2) GO TO 130 
DAY = 274 

126 CALI READ { DPET ( DAY ) ) 

I F ( DAY .EO • 273) GO TO 127 
CALL OAYNXT (DAY, DPY ) 

GO TO 126 

127 DO 128 MONTH =; 1,12 

128 CALL READ ( EPCM( MONTH ) | 

IFCEPAET .NE. 0.0) GO TO 13 3 
DO 129 DAY = 1 , DR Y 

129 EPAET = EPAET 4- DPET (DAY) 

1 F ( EPCrt ( 6.) .NE. 1.0) EPAfcT '=* 0.7* EPAET 
GO TO 131 

130 CALL READ ( EPAET , M NR 0 ) 

EMAET = EP AET* ( 365.0 v MNRD 1/404.0 
CALL EVP DAY (DPET, EM A FT ) 

131 AE TX = 24. 0* EP AET/ 36 5. 0 
AEX96 = 1.2*AbTX 
AEX90 - 0. 3* AET X 
SIAM = i . 2**$ l AC 

UZC = SUZC*;AEX90 ♦ RUZC*EXP (-2 .7*LZ$/t2 
IFC.UZC .LTV 0.25) UZC = 0.25 
SGRT =0 

DO 132 DAY = 1,366 
DO IW ( DAY ) » 0 . Q 
DRSE(DAY) = 0.0 

- ORGPM(DAY) = RGPMB 

DRSGP ( DAY ) = 0.0 - - V 

DO 132 HOUR = 1,24 

132 ORHP( DAY, HOUR) = 0.0 

133 T FI CONUPT ( 9 ) .NE. 1) GO TO 135 
DAY = 274 
DRSFI366) = 0.0 

134 CALL READ ( DRSF( DAY) ) 

* CALL OAYNXT (DAY, DPY ) 

IF (CAY .NP. 274) GO TO 134 

135 I F < CQNGPT (11) .NE • 1) GO TO 137 
DAY = 274 
DDIW(366) = 0.0 

136 CALL READ! DDI W( DAY)) 

CALL OAYNXT ( DAY , DPY) 

IF (DAY .NE • 274) GO TO 136 


+ RUZC*EXP(-2.7*LZ$/tZCI 
UZC = 0.25 


KWMNO 183 
K W M N ?1 84 
KWMNO l 95 
KWMNH i 86 
KWMNOl 87 
KWMNOl 88 
K WMN 01 R9 
KWMNOl 90 
KWMNOL«l 
KWMNDL 02 
X WMN 01 93 
KWMN0194 
KWMN0198 
KWMNOl 96 
KWMNOl 97 
KWMN019R 
KWMNOl 99 
K WMN 02.00 
KWMN0201 
KWMN020? 
KWMN0203 
KWMNO? 04 
KWMNO? 9 5 
K WMN 02 06 
K WMN 02 07 
KWMNO? 08 
XWMNC209 
KWMNO? 10 
KWMNO? 11 
KWMNO? 12 
KWMNOl 3 
KWMNO? 14 
K WMN 02 15 
KWMN02 16 
KWMNO 2 1 7 
KWMNO? IB 
KWMN02 19 
KWMNOp^o 
K WMN 02 2 1 
KWMNO? 22 
K WMN 02 23 
K WMN 02 24 
KWMN0225 
KWMNO 2 26 
KW M N02 2 7 
KWMN0228 
K WMN 02 2° 

i WM.NO 2 30 
WMN0231 
WMN 02 3 2 
WMN0233 
WMN 0? 34 
WMN 02 3 5 
KWMN02 36 
K WMN 02 3 7 
KWMNA 23 R 
KWMNO? 39 
KWMNO? 40 
KWMN0241 
K WMN 02 42 
KWMNO 2 43 
KWMNO 2 44 
KWMNO 2 45 
KWMNO 2 46 
KWMNO? 47 
KWMN0248 
KWMN024Q 
KWMN0250 
KWMNO? 51 
KWMNO? 5? 
KWMN0253 
KWMNT254 
KWMNO? 55 
KWKN0256 
KWMNO 2 57 
KWMN0258 
KWMNO? 59 
KWMNO? 60 
KWMN026 1 
K WMN 02 62 
KWMN026^ 
KWMNO? 64 
KWMNO? 65 
KWMN0266 
KWMN0267 
KWMN0268 
KWMND269 
K WMN 0270 


137 I F ( CONOPT <71 . EQ. 0) g5 TO 139 
DAY 4 274 

138 CALL RtAD(DMXT(DAY)f DMNT(OAYl) 

CALL DAYNXT (DAY, DP Y ) 

1 F ( 0 AY .WE. 274) GO TO 138 

139 CALL READ! NSGRD) 

IFINSGRO .EO. 0) GO TO 14 l 
CALL READ( WSG » SGRT) 

1 F ( CONOPT ( 8) .EO. 1) CALL RE ADI WSG2, SGRT2 # SGMD I 
DO 140 KRO = l» NS Gk:) 

CALL READ (ISGRD) 

140 CALL RbADIDRSGPt ISGRD) ) 

C READ RECORDING RAIN GAGE HOURLY TOT AL 5 « 

141 CALL READ) J'WBG. YEAR, MON THr DATE ,CN ) 

C PUNCH NO NUMBER AFTER CM ON YEAR .EO. 98 CARD 
IF (YEAR .OE. 98) GO TO 144 
HRF = 1 2* ( CN - 1) * 1 
HRL = 1 2<" ( CN - L) ♦ 12 
DAY = MEDCY (MONTH ) ♦ DATE 
DO 142 HOUR = HRP, H?L 

142 CALL RE AD( ORHP ( DAY,HOUR ) ) 

1 F ( DPY .NE. 366 .OR. MONTH .NC. 2 .OR. DATE .NE. 
00 143 HOUR = HRF. HRL 

DRHP ( 366t HOUR ) = OKHP( 60.H0UR) • 

143 DRHP ( 60 *HCUR ) = 0.0 
I GO TO 141 

C CALCULATE PRECIPITATION WEIGHTING FACTORS 
1441 DAY = 274 

1 I F ( NSGRD .EQ. 0) GO TO 151 
' PDAY =274 „ 

RDPT = 0.0 - 

145 EHSGD = SGRT 

l F( SGRT .EO. 0) EHSGO = 24 
EHSGUF = EHSGO 

146 CONTINUE ' " 

00 150 HOUR = 1 1 24 . ..»■ -* . . 

RDPT = RDPT + DRHP (DAY i HOUR) 

I F ( HOUR .ME. EHSGO) GO TO 150 
IF (RDPT .LE. 0.0) GO TO 147 
IF ( SGRT .EO. 0) PDAY = DAY 

DRGPM (PDAY) = ( ORSG D t DAY ) *WSG ♦ RDPT«=( 1.0 - WSG 
IF ( CONOPT (3 ) .NE. 0) 0 PET ( PDAY ) = 9 . 5*DPET ( PO AY ) 
! IF ( SGRT .NE. 0) PDAY = DAY 
■ RDPT = 0.0 
GO TO 150 

147 I E ( DRSGP ( DAY ) .LE. 0.01 GOTO 149 
DO 148 KHOUR = 1, EHSGO 

148 DRHP (DAY fKHOUR ) = (WSG* DRSGP ( DAY ) ) /EHSGOF 

149 IF (SGRT .NE. 0) PDAY = DAY 

150 CONTINUE 

CALL DAYNXT ( CAY, DPY ) ^ . 

I F ( DAY .EO. 274) GU TO 151 - - - . ; • 

IF ( CONOPT ( 8) .EO. 0) GO TO 146 
IF (DAY .NE. SGMD) GO TO 146 

wsg = wsg2 ' •; \ 

SGkT - SGRT2 . * . ■>**• . ■» * * <•>. j&- 

GO TO 145 
151 BACKSPACE l 1 

WR I TE an ( RPLOTC < I ItT-l f 1332 ) " ^ ^ 

BACKSPACE 18 > 

WRITE (18) (RCOMMA( lit I^iaZORT) 

RETURN : 4 ■ # _ , 

end ■ • • * ■v.'”*. • ■■ ■ < ^ 


•OR. DATE .NE. 29) GO TO 141 


♦ DRHP CD AY f HOUR) ’ 

EHSGD) GO TO 150 
0.0) GO TO 147 
0) PDAY « DAY 

= ( ORSG D ( DAY I -WSG f RDPT^C 1 .0 - WSG) ) /RDPT 
• N E. 0 ) X) PET (PDAY) = 0 .5*DPETI PO AY ) 

0) PDAY = DAY 


GO TO 


L*?*l 


SUCmnUT INE WnRSTC(PDAY,OATtS,MONTH,ED.\Tf:,MSIVTIC,PDATE,LDAY) 

CUMMCM/ PLOTC/DRSF , DSSF .CONOR T » THSFD, T 4S TF» ST 4»nS( 121,6 ) ,LI'Y,TI TLE , 
2KFLAG, IDFLAG. 

1 IENOFG * S I'UOY ( 2) , P fc AKS , PHRS , NSP TS, THSFOM , r FM\ XD , T MRTF , J PL OT , 

2 , NCTR l , Cl R I » F iKtt , R I CY , OPSF , BOnFSW » SP '<FL W , SP T WCC , SPM , F LUI F , 

3 XDNFS .FFOK.FFSl , NRNSM ,DSMUM, PXCS A ,RMPF , RGPM», ARC A , F I MP. 

A SATRI , UHFA, 

bmnko » 

A FWTR » V IMTMR.OUZC » SIJZC »LZC * FTl F ,SUBW*- , GWETF , Sl AC,(VMIR* 
b B I V F , CFS S , OF SU , iir ^ V , f i FMN 1 S , I TR C , C Sf X , t" SRX , C HC A P, fc XO P V , 

6 BFNLR , BFRC , GWS , U ZS , L Z S , BFNX , l F S , HH)P C ,5F PL , BFNRL , PFNHF , I FPRC , 

7 IFRL.LSHFT.NBTRT.FNTkI.MXIP 1 .NCSTRI , BTk I , TFCKS , EP AFT , TPCR, 

8 TPLP. « V I NTCR »HSEi, NR Ik I , SP 1 F » ClJF , SPUR , Dt- US , UEU3 ! S ypr k, tlFR I S t PE I S , 

9 | RHFO « UKHF, AM I F , AMNfcT , AMPH T , AMSNE , ArtE S I L , S A SEX,- SAP A X, ShX.Vw IN , 

A : WCFS .RHFMC, SSRT* OF KF , OFRF l S , EQL'F , ELPF1 S , SOFRF , SOFRF I . 

fi SPEPT Ft,. MULT I , ID, ASM, WT A AM YWT APR, SAX, TANSM, SP fW, STMD.SEFP, ASKRG, 
XOEPEND ( 2 ) * VAK I N ( 2 ) . .IP F$ , JUL r ' I , I YR , T’lOAR Y ( b , l ) , 

YTUMARYl 7 , l ) , TllS 1R Y ( b ,6 , l ) , T S.*Af<Y( 6,1) ,TSMARY1«,-I» , 

ZTSSARY { 3,6,1), TSMCRY ( 1 ) ,TSDCR Y ( 1 ) , T SR AR Y ( 1,6,1), 

WTORAR Y ( 1,6,1) . 

CORSET ( 3 66 ) , DSSFTt 36o I , M I ,NI , * IJLT .THAT '1(121, TMS T FT (12) 

COMMON/ CO M MA/ EM8FNX , EMG WS , E M I F S , F M L ZS» E MS I AM, FMUZC, FMUZS , TRAP, 
1TMIF, TMPrtEC.T MS E , CRT « 1,00 1 W , 0 M NT , DM XT , D R G PM, D RHP , OR S G P , 0 P FT, E 0 L 2 S , 
ZEPCM,5ERA,S£RR,SeSF, SO ER. THSF , IMPS I L , TMNET , TMOF , TMPFT , TMRPK, TKSNC, 
3TMSTF I , T200FH, T20PRH , TMS-TF I , JULDAT , 

4TPMAXY.UZC, AET X , DAY, NSGRD, AtX90,SI AM.NDS DP , P.GPM, NOS OR , YK 1 , 
bTRHF , 

5SINDEX, INDEX, AFX96, MAXI, YR2, BYLZS , B YI.FS , BYU2S 
KENTUCKY WATERSHED MODEL (VERSION OF JUNE 6, 1970) 

BASED ON STANFORD WATERSHED w 0nFLS II! F. IV 
DIMENSION B T ft 1 < 9 9, ) , CON CPF ( 1 6 ) , CR FM I ( 22 ) , CTR I ( 90 | , PO l W I 2 66 ) . 

1 DMNT ( 366 ) , DMXT ( 366) , DPSEI 3661, DROP M( 366 ) , DRHP ( 366,24) , 

2 URSGP ( 366 I , DPETI3S6), O&SFI 366) . DSSF (366 1, FOLZ S ( 3t (. ) , 

3 EMQFNX( 1.5,3) ,CMGW5( 1 5 , 3 ) , E •» l c S ( 1 5 , 3 ) , E ,J L ZS ( 1 b , 3 ) , |>$ 1 AM (1 5 , 2 ) , 

4 EMUZG ( 15 * 3 ) » EMUZ S ( l5,3i,rPCM( 12), FIRM 1 5 ) , ME OCY ( 1 ? ) , MC PWY ( 12), 
-.5 R ICY (37) « SATRl (09), SERA (22 ) , SEKR(22), S&SFI22), SOEPI22). 

6 THSF (24) .TITLE ( 18) , TM8F1 15,3) , TMFS I L I 12) , T M If ( 15,3), TMNET ( 1?) , 

7 ! T MOF ( 15,3) , TMPFT ( 12), TMPPfcC < 15,3) , P« ( 1 2 ) , TMRTF ( T 2 ) ,TMSf( 15,2), 

8 TMSNEI 12) .TMSTFl 15, 3) , TMST El ( 15,3 ) , T2C0FH(2 l ) , T20PRH ( 2 1 ) , 

9 UHF A( 99 ) , TMRTF H 12) » JULDAT 16) .THSFOl 744. 3) , TFMAXY ( 366 ) , 

A P EARS ( 6) , PHRS ( 6 ) .NSP! S (6) , T HS FOM( 6 ) 

LOGICAL LSEiFT 

INTEGER CDSCR»CN,CONOPT,DATE«CAY,DPY,CHSGD, HOUR ,HPF,HRL,PDAY, 
l PRO , RHPD, RHPH.RSBD , SGMO* SGR I ,SGR T?, YEAR , YR 1 , YR2, PHRS , SI NDEX 
INTEGER TOMARY, TSMArt Y, 1 OOAKY , T SCAR Y , TOSAP Y, TSSARY 
INTEGER DATES, SPATE 

DIMENSION RPLOTC ( 1832) ,RCOMMA( 12087) 

EUU I VALENCE (OPY, RPLCTCI 1 ) ) , ( CPF.MI , RCOMMA ( 1 ) ) 

REAL I FPRC, I EEC , IFRL, IFS,LZC,I 7RX , L ZS , L ZSR , MHSM.MNRD , MRNSM, NHPT 
DATA MEDCY/ 0, 3 1 , j9 ,96, 1 2 "',151 ,181 , 212, 243 , ? T* 1 , '■54,334/ 

DATA MEOW Y/ 204, 334, 365 . 3 1 , 59 , 90, 1 23, 151, 181,212,243,273 / 

REAL MXDRSF.MXOSSF.MXMRSF .MXMSSE.SSUO 

REAL SSQM.SSODI ,SS.J U I , VuRSF.VDSSF 

REAL VMRSFii VMSSE.SDQRSFf SOOSS F, SOMRSF ,SDMSSF,SMDD, $MMO, S-MSOD, 

* SMSCM 

REAL MDR SF , MDSSF , MWRSF ,MMSSF * 

BACKSPACE 11 

READ (11) (RPLOTCm, 1 = 1,1832) - 

BACKSPACE 18 

READ( 18 ) (P COMMA ( I ) , 1=1,12087) 

10 CONTINUE 

DATE=PD ATE 
DA Yi=OATES 
MOAY=PUAY : 

SI NDEX=0 
MAXI— 0 
AMRPM = 0.0 
AM PR EC =0.0 : 

AMBF - 0.0 
AMSE =0.0 
AMS T F = 0.0 
AMRTF = 0.0 

IF I OPY .FO. 366) MFDWY(5) = 366 
WR I TE ( 6 , 3 ) ( TITLE(KTA) »KTA=1, 18) 

FORMAT ( 1HI, 1CX, 18A4,//) 

WRITEI6.4) MSBD1C 

FORMAT I IX, ‘WORSE CASE HOURLY CFS V ALUES • , // » IX, 4 A4) 

BEGIN DAY LOOP 
IMONTH=MUNTH 
152 TDSF = 0.0 

‘ IF I MONTH. NE. 4 1 GO TO 148 
IF ( MDAY.NE. 31) GO TO 149 
»8 IF IDATF.GT. (MOD I DAY, MO AY) ) ) I M0NTH=M0NTH*-1 
>9 CONTINUE 

PET = EPCM( I MONTH) *DPET ( DAY I 
PETU = PET 
TFMAX = 0.0 

EVAPOTKANSPIRATION ADJUSTMENTS 








IF (CONOPTl 7 ) .NE. 1) GO TO 153 , WCAS00R8 

IFIUMXT (UAY) - 4.0*ELUIF .LI. 40.0) PET * 0.0 WCAS0039 

if i spr w .gt. sptwoo pet * FroR*PGT wcasoooo 

CALCULATION OF SNOW C V APORAT I ON WCAS0091 

. IF ( DMNT ( DAV ) .GT . 32.0 .OR. SPTW . LE . OPSEIDAY)! GO TO 153 WCAS009.2 

SE = OPSE t DAY I WCAS0093 

AMSNE = AHSNE «• SE WC AS 00 94 

SPTW = SPTW - SE WCAS0095 

IFISFMO .GT. 0.0) SDEPTH 4 SOEPTH - SE/SFMD * WCASC096 

153 DO 202 HOUR = 1.24 WCAS0097 

• IF I ( NSGRO .Ft}. 31 . AND. ( Drt HP ( CAY • HOUR ) . NE. 0.0) .AND. (PET .EO.WCASOOPn 

l PETU ) .AND. (C0NUPH3) .fcO. II) PET * 0.5FPQT WGAS0099 

154 IF! HOUR .FO. SGRT 1) RGPM - CRGPM { DAY ) • ‘ WCAS0100 

IF I HOUR .ED. 9) HSc = < FWTR*PE T ) / l 2 . 0 WCASOLOl 

IF (HOUR • EO .21) HSF = 0.0 WCAS01O2 

PRH= l . 2*0R HP (DA Y. HOUR ) WCAS0030 

AMPREC = AMPREC * PRH WCAS0104 

ENTER SNOWMELT SUBROUTINE WCAS0LO5 

IF ( COIMUPT 1 7 ) .EO. 1) CALL SNOMEL ( BDDFSM , SPTWCC , SPM, ELO! F , DA Y , WCASOI 36 

1 SPRFLW . XDN'FS » FFUK * FFS I .NPNSM.OS MGH . SDFP1 H , STMD , PXCSA.HOUR, WCAS0107 

2 SAX. SCrFR F . OFR|F I S.SOFRF I » AMPS IL.PRH. SPTW.TANSM.SPLW. SFMQ.OFRF, WCASOI 08 

3 WT4AM .WT4PM, ASM, ASMRGVSASFX.SAR AX.UMXT.DMNT .KICY.HRR) WCAS0109 

155 AMKPM = A MR PH + PRH WCASOI 10 

156 TOFR =0.0 . WCASOI l l 

ARHJF = 0.0 WCASOI 12 

15 MINUTE ACCOUNTING AND ROUTING LOOP . WCASOI 13 

00 187 PRD = 1,4 WCASOI 14 

PEBl = 0.0 • ^ . WCASOI 15 

PPI = 0.0 WCASOI 16 

OFR = 0.0 . WCASOI 17 

OFRIS =0.0 , ' • WCASOI 18 

WI = 0.0 * * - WCASOI 19 

WEIFS = 0.0 WCAS012 7 

PMEUZS = 0.0 . . WCASOI 2 1 

PMEL7S = 0.0 * WCAS0122 

PMEIFS = 0.0 ... ... . :.».r •> vv WCAS0L23 

PMbUFS = 0.0 ‘ WCASOI 24 

PEP = 9.25*PRH WCASOI ? 8 

IF (C0NUPT12) .EQ. 1) C ALL PREPRDI RGPM .DRHP.DAY, HOUR ,OPY, PRO .PEP, WCAS0126 
1 PRH) WCASOI 27 

IF (PEP .GT. 0.0) GO TO 157 WCAS0128 

IF ( OFUS .GT. 0.0) GO TO 159 > , WCAS0129 

IF ( IFS .GT. 0.0) GO TO 170 • ’ . WCAS0130 

IF ( NRTR'I .GT. 0) GO TO 172 ... .. WCAS0131 

TRHF = 0.0 ! WCASOI 3? 

IFIRHFO .GT. 0.0) GO TO 181 . WCASOI 33 

GO TO 184 * WCASOI 34 

RAINFALL UPPER ZONE INTERACTION ... • WCASOL35 

157 IF ( PEP .GE . VINTCR) GO TO 158 WCAS0136 

UZS = UZS «- PEP*TPLR . w... •. ■ WCAS0137 

VINTCR = VINTCR - PEP ; * : - - : ; WCAS0138 

. PPI = 0.0 . e.i! : ..V. . . WCASOI 39 

PEBI = 0.0 WCASOI 40 

PMEUZS = PEP . WCAS0141 

IF ( OFUS .GT. 0.0) GOTO 159 3 ' * * WCASOI 42 

GO TO 170 . -.m. ... v. * » WCASOI 43 

158 PPI = PEP - VINTCR WCAS0144 

UZS = UZS + V INTCR = TPLR , _ , * .. WCAS014S 

VINTCR = 0.0 '■■■<. • ■ ' ; ' • WCASOI 46 

LZSR = L7.S/LZC . : .--..WMOH?:' 

UZC = SUZC*AEX90 f BUZC*EXfi (~2 .7*LZSR ) WCAS0148 

IF ( UZC .LT. 0.25) UZC = 0.25 „ .. ...... WCASOI 49 

UZRX = 2.0*A 9S ( UZS/IJ ZC - 1.0) + 1.0 ■ "■ / n ' WCAS0L50 

FMR = I l.0/( 1.0 ♦ UZRX ) ) **UZRX ' • - . _ .. A,-*. .-v- WCAS0151 

IF (UZS .GT. UZC) FMR = 1.0 - FM.R WCAS0152 

PEBI = PP I * F MR WCASOI 5’ 

PMEUZS = PEP - PEBI •* - " WCASOI 54 

UZS = UZS <- PPI - PEBI . - - ' • . .. WCAS0155 

: OWERi ZONE AND GROUNDWATER INFILTRATION WCAS0156 

159 LZSR = LZS/IZC . _ . . WCASOI 57 

Ell) = 4.0*LZSR ’ WCASP159 

IF (LZSR .LE. 1.0) GO TO 160 ■ . .. .. WCAS0159 

Ell) = 4.0 ♦ 2.0*1 LZSR - 1.0) WCASOI 63 

IFdZSR .LE. 2.0) GO TO 160 WCAS0161 

E10 = 6.0 • . .... . WCASOI 62 

160 PEBI = PEBI ♦ OFUS .. . . • . WCAS0163 

CM I K = 0.25*SIAM*8MIR/12L.0*!*EID) WCAS0164 

CIVM = BIVF=2.0**LZSk WCASOI 65 

IFIC1VM .LT. 1.0) CIVM = 1.0 ■ ** * WCAS0166 

. PE A I = PEBI*P6BI/I2.0*CMIR = CIVM) WCAS0167 

• WI = PEB I*PEB I / ( 2 .0*CH IR) WCAS0169 

IF ( PEB I .GE. CM. I R ) WI = PEBI - 0.5*CMIR WCAS0169 

IF (PEBI .GE. CHIRAC 1 VM ) PEAI = PEBI - 0. 5*CM I R*C I VM WCAS0170 

WEIFS = WI - PFAI WC AS 0171 

IF (PEB I .LE. OFUS) GO TO 161 WCASOI 72 

PMELZS = (PEBI - W I ) ♦( (PEBI - OFUS) /PEB I) WCAS017^» 

PMEIFS = WE I FS*( ( PET3 I — OFUS) / PEB I ) WCAS0174 

PMEOFS = P E A I * ( (PEBI - OFUS»/PEBI) WCAS0175 




161 


162 

163 


164 

165 


166 

167 


168 


169 


CONTINUE 

If ((PEA I - OFUS) *GT • O.O) GO TO 162 
EQD = ( OFUS * PEA |)/ 2.0 
GO TO 163 j 

EQD s..£ODF*MPtiftl OFUS) **0.6) 

I Ft (OFUS ♦ PEAI ) . GT . (7.0*EQD)) EGO - 0.6*1 OFUS ♦ PEAI ) 

IF ((OFUS * PEAI) . LE . 0.001) GO TO 164 

OFR = 0.?5*0FKr*( ( UJFUS + PEAI ) * 0 • 5 ) * * 1 • 6 71 * ( (1.0 ♦ 0.6*( (OFUS ♦ 
1 PEAI )/( 2.0*600) 1**3. 0 )** l* t>7 ) 
irCOFK .GT. (0.75* PEAI ) ) UFK = 0.75*PFAl 
IF ( F IMP .EG. 0.0) GO TO 168 
PEIS- PPI f OFUS IS 

1FUPEIS - OFUS I S ) .GT. 0.0) GO TO 166 
EOD IS = (OFUS IS * PE IS J/2.0 

GO TO 167 - 

EGDIS = CODE IS * ( ( »>[• I $ - CFU S IS ) * *0 • 6 ) 

IF ( (OFUS IS ♦ PEIS) .GT. (2.0*EQDIS ) ) FOOIS- 0.5* (OFUS IS 4 PEIS) 
I F ( (OFUS I S * PEIS) • Lb. 0.01 ) GU TO 168 < : 

OFRl S = 0.25 *O.FK F I S * 1 1 ( Or US l S 4 P F ! S ) *0 • 5 ) ** l .67) *( (1.0 ■* 0.6*(( 
1 OFUSIS 4 PErS)/(2.?*EtiO-FIS))**3. 01**1. 67) 

IF (OFR IS .GT* PEIS) QFRIS = PFIS 

TOFK = TOFR ♦ FP ER*UFR * FlMPtOFRIS ♦ PPI*FWTR 

OFUSIS - PEIS - OFRIS 

OFUS = PEAI - UFR 

IF (OFUS • GE • 0.001) GO TO 169 

LZS = LZS * OPUS 

OFUS = 0.0 

OFRIiS = OFRIS + OFUSIS 
OFUSIS = 0.0 
LZRX = 1 • 5*A0S( LZ S/LZC 


- 1.01 ♦ 1.0 


FMR = (l.Q/d.O *■ LZKX))**LZRX 


1.0 - FMR* ( L ZS/L ZC ) 


170 


171 


.173 


174 
17 5 


SPIF 
0.0001) 
IFS 


- HI >* (1.0 - SUBWF )*FPER 


GO TO 171 


IF (LZS .IT • LZC ) FMR .' = 

PLZS = FMR* ( PbBI - W 1 1 
PGW = (1.0 -FMR ) * (PE 31 
GW S = GWS * PGW 
BFNX = BFNX f PGW 
LZS - LZS ♦ PLZS 
IFS = IFS * WEI F SAPPER 
SPIF = I FPL* IPS 
AM IF = AM IF + SPIF 
IFS = IFS - 
IF (IFS .GE. 

LZS = LZS * 

IFS = 0.0 

UHFA(l) = FP ER*OF R * PPI*FWTR ♦ FIMP*OFRIS + SPIF 
SPOR = UHFA(l) 

ROUTING 

172 I F ( CCNUPT ( 12) • N E • l ) GOTO 173 
URHF = URHF * 0.25*UHFA(1) 

IF (PRD i.NE. 4) GO TO 18 1 
UHFA(L) = URHF 
TRHF - 0.0 

KTRI NCTRI * * 7 . 

IF ( CONGPT (13) .EQ. 1) K TR I = NCSTRI 
URHF = UHFA(KTRI) 

I F ( URHF .LE. 0.0) GO TO 176 
TRHF = TRHF + URH F*CTR I (KTR I) 

IF ( CONOPT 113) -EQ. 1 .AMD. LSHFT .AND. 

URHF3SATR I (KTRi - 1) 


KTRI .GE. 2) TRHF - TRHF * 


176 

177 

178 


179 


180 

181 


UHFA ( KTRI + l) URHF 
GO TO L 77 
UHFA (KTRI* Li = 0.0 
KTRI = KTRI - l 
IF (KTRI .GE. 1) GO TO 174 
IF (URHF .IE. 0.0) GO TO 179 
NRTRI = NCTRI 


. EQ. 

- 1 


l j NRTRI = MXTR I 


IF t CONOPT ( 13 ) 

NRTRI = NRTRI 
UHFAM ) = 0.0 
IF ( CGNUPT ( 13) 

NNSTRl = NCSTRI * 1 
UHFAINNSTR l) = 0.0 
URHF = 0.0 

IF (SRX .LE. CSRX ) SRX = CSRX 


.NE. Li GO TO 130 


WCAS 01 76 
WCAS 0177 
WCAS9178 
WCAS 01 79 
WCASO] 30 
WCAS0181 
WCASO 1 3? 
WCASO 1 33 
WC AS 01 34 
WCASQ185 
WC A SOI 36 
WC A S 01 8 7 
WCASO l 88 
WCASO 189 
WCASO l 90 
WCAS0191 
WCASO L92 
WC & SO 1 93 
WC AS 0194 
WC AS 01 95 
WCASO 196 
WCASD197 
WCAS0193 
WG AS 01 99 
WCAS0200 
WC AS 0201 
WCAS9202 
WCASO? 03 
WCASO? 94 
WCAS0205 
WCAS 02 06 
WCASC207 
WCAS0208 
WCAS 0209 
WCAS 02 10 
WGAS0211 
WCAS0212 
WCAS 02 13 
W C AS 0214 
WCAS02 15 
WCASO? 16 
WCASO? 17 
WCASO? 18 
WCASO? 19 
WCAS 0? 20 
WC AS 32 2 1 
WCAS 02 22 
WCAS 02 23 
WCAS 02 24 
WCAS 02 25 
WCAS 0226 
WCAS 02? 7 
WCAS 02 2 3 
WCAS 02 ?9 
WCAS 02 30 
WCASO 231 
WCASO? 32 
WC A 502 33 
WCAS 0734 
WCAS0235 
WCAS 02 36 
WCAS 02 3 7 
WCAS 0238 
WCAS 02 39 
WCAS 02 40 
WCAS 0241 
WCAS 024? 
WCAS 02 43 
WCAS 02 44 
WCAS 02 45 
WCAS 0246 
WCAS 07 47 
WCAS 02 43 
WCAS0249 
WCAS 02 50 
W CAS0251 
WCAS 0252 
WCAS 02 53 
WCAS 02 54 
WCASO? 55 


RHF 1 « TRHF - SRX* ( TRHF - RHFO ) 

RHFO = RHF 1 

IF (RHFO • L T • RH r FMC) RHFO = 0.0 

TFCFS = (4.0*RHF1 + C3F - HSE)*WCFS ' 

IF (CGNUPT ( 13) .NE. 1) GOTO 182 

IF ( CCNOPT ( 12) .EQ • 1 • AND. PRO .NE. 4) GO TO 182 
CALL RTVAPY (CTKI , SATR I , BTR 1 , CHCAP , N3TR 1 + MXTRI t NCSTRI ♦ EXQPV , LSHFT f WCASO? 56 
M TFCFS) ; WCAS0257 

DATE = POD(DAY»MOAYI WCAS0258 

IF(LSHFT) W R I T L ( 6 » 6 ) DATE, HOUR ,PRD . NCSTR I WCAS0259 

6 FORMAK 2X, I2.2X, 1 2»2X, I2,2X f 20HhI S UGKAM CHAfJGES TO, IX, 12, IX, WCAS0260 

1 8HELEMENT S ) WCAS0261 

18 ? CONTINUE WCAS026? 

I F ( T FCFS .LE. 0.5*CHCAP) SRX = CSRX WCAS0263 

IF M TFCFS .GT. 0.5*CHCAP) .AND. (TFCFS .LT. 2.0*CHCAP)) SRX = CSRXWCAS 0264 


I XFSRX - CSRX)*«(TrCFS. - 3. 5*CHC API / 1 1 . 5*CHCAPn**3 
IFMFCFS .GT. ? »0*CHC AP I SP X = FSRX 
IF (TFCFS .LE. TFMAX) GO TO 183 
PROF = PRO 
TDFP24 = HOUR 

* I F ( P R D .IF. 3) TDFP24 - (TDFP24 -* 1,0) ♦ 0.15*PRDF 
TFMAX = TFCFS 

183 ARHF = ARHF ♦ RHF1 

C STORM OUTPUT REQUESTED BY CONOPT(l) 

184 IF ( CONOR T-( L ) .NE. 1) GO TO 136 " 

IF (DAY •NE* COS DR) Gil TO 186 

* IF (HOUR .btf. I .AND. PRO .Eg. 1) WfUTI-(6,7) 

7 FORMAT ( l.H/7 tZlX, L9HR -A INFALL DEPOSITION, 1 2 X » 16HMPI STURfc STORAGE, 

1 1 4 X » 1 7 H S T R £ AMF LOW OR I GI N , 6X , L4HSTRE AM OUTFLOW/ 2X, 1 1 6H0Y HR PD 

PIN EUZS ELZS EIFS fcUFS UZS LZS IFS OFS 

3P0F SPIF SP8F SPTF INCHES CPS) 

GATE = MOD ( DAY, MpAY! 

OFS = OFUS *Fp ER * OF US I S*F1MP 

SPUF - OF RAPPER * OFR I S^F IMP ♦ PPl*FWTR * 

SP B F = 0.2 5* ( CBF— HSE ) 

SPTF = SPPR * SP BF 

SPDR = 0.0 , ‘ ‘ ' 

IF( RHFO .LE. 0.0) TFCFS - ICBF - HSE!*WCFS 
RSPTF = 0. 25*TFCFS/ WCF S 

WRITE* 6,8) DATE, uHOlJR, PRO, PEP, PMEUZS,PMELZS f PKEIFS,PMEOFS,UZSf LZS 
t, IPS, OFS, SPUF, SPIF, SP8F„ SPTF, RSPTF , TFCFS 

8 FORMAT! 2X | 12, IX, I 2,1 X, I I, 5UX» F6.4 > ,2X,4 ( F7.4) , 2X,5( IX, F6.4) , IX, 

SfLHOUrUeQ. 24 » AND • , PRO .EQ. 4) GO TO 185 
GO TO 186 
NO SOP = ; NOS DP * 1 
I F( NOS OR .EQ. NOSOP) GO TO 186 
CALL DAYNXT ( COSUR , DPY) 

CONTINUE 

IF (VINICR .LT. 0. 25*VlNTMR ) VINTCR ~ VINTCR ♦ DPET ( DAY ) /96. 0 
CONTINUE 

OF 15 MINUTE LOOP 


185 


186 

187 

END 


1 F ( CONOpT ( 5 ) .NS* 
HOURLY OVERLAND FLOW 
I F ( TOFR .LE. 0*0) 
KT 20 = 20 i 
IF t K T 2 3 .LT. 

IF ( TOFR .GT. 

GO TO 100 
T 20GFH ( KT20+ 1 ) = 
GO TO 191 
T 2 QUFHi KT2 0 + 1 ) - 
GO TO 193 
KT 20 = KT20 
GO TO 188 
T 2 OOFH ( i) ~ 

IFtPRH .LE. 

KT 20 = 20 
IF ( KT 20 .LT 


1) GO TO 197 
AN D RAINFALL 
GO TO 193 


SORTING 


188 


189 

190 

191 

192 

193 


IT GO TO 192 
T200FH( KT 20)! 


GO TO 189 


T200FHIKT20) 
T OF R 


- 1 

TOFR 

0 . 0 ) 


GO TO 197 


194 


1) GO TO 196 
T20PRH(KT20 ) ) 
+ 11 - PRH 


GO TO 195 


IFtPRH .GT. 

| T20PRHCKT20 
GO TO 197 

195 T20PRH IKT20+ I ) « T20PRH(KT20) 

KT 20 = KT 2 0 - 1 - 

GO TO 194 

196 T 20PRH ( 1) = PRH 

C ADDING GROUNDWATER FLOW 

197 CBF = G W S * B F R L * ( 1 • C > BFNRL*RFNX ) 

GWS - GWS - CB.F ! ' 

AMBF = AMBF !♦ DBF 

THGR = ARHF > DBF 

IF ( HSE .GT. THGR) HSE = THGR 

AMSE « AMS E ♦ HSE 

THSF (HOUR ) - (THGR - HSEj*WCFS 

TDSF « TDSF + THSF (HOUR) 

C 

C STORE SIMULATED HOURLY STREAM FLOWS 
C DRAINING OF UPPER ZONE STORAGE 
$ I NDEX^S INDEX* 1 
THSFD ( S INDEX , l !=THSF ; (HOUR) 

306 UZINFX-(UZS/UZC) - (LZS/LZC1 
IFIUZINFX .LE. 0.0) GO TO 198 
LZ SR = LZS/LZC 

UZINLZ = '0.003*i3MIR*UZC*UZlNPX**3.0 

IFIUZ1NLZ .GT. UZS) UZINLZ - UZS 
UZS = UZS - UZINLZ 
LZRX - 1 • 5 *ABS ( LZ5R - L.O) ♦ 1.0 
FMR = ( l.Q/d.O ♦ LZRX ) ) **LZPX 
IF1LZS .LT. LZC) FMR =1.0 - FMR*LZSP 
PGW = ( 1.0-FMK)*UZINLZ*l L.O - SUBWP)*FPCR 
PLZS = FMR *UZ I NL Z 
LZS = LZS ♦ PLZS 
PGW 
+ PGW 


GWS = GWS ^ 
BFNX = BFNX 


ofc'o 


B-ll 


WC AS 02 65 
WC AS 0266 
WCAS n 267 
WC AS 02 68 
WCAS0269 
WCAS0270 
MCA S 02 7 1 
WCAS0272 
WCA5 0? 73 
WC AS 0274 
WC AS 02 7 5 , 
WCA i S0?76 
WCAS0777 ! 

RAWCAS027B I 
SW CAS 02 7^ 
WCAS0280 

wcAs^m 
WC>S02a2 
WCAS0233 
WC AS 02 R4 
WCASO? 8 5 
WC AS 0236! 
WC AS 02 87 
WC AS 02 8 8 
WCAS0289 
WCAS0290 
WCAS0291 
MCA S 02 92 
MCA S 02 93 
WC AS 02 94 
WCAS0295 
MC A SO 2 96 
WCAS02 q 7 
WCAS0298 
WC AS 0299 
WCAS0300 
WCA5Q30L 
MCA S 03 02 
WCAS 33 03 
M CAS 03 04 
WCAS0305 
HC AS 0^ 06 
MCA S 03 07 
WCAS0308 


MC 

WC 

WO 

WC 


:AS0309 

:asq31o 
’/AS 03 11 
.. CAS0312 
WCAS0313 
WCAS03 14 
MdASO.315 
WCAS0316 
WC AS 03 17 
WCAS3318 
WC AS 03 
MCAS03 20 
WC AS 03 21 
WCAS03 2 2 
WC AS 03 2 3 
WC AS 03 2 4 
WCAS0325 
WCAS0326 
WC AS 03 27 
WC AS 03 2 8 
WC AS 03 29 
WC AS 0330 
WCAS0331 
WC AS 0332 
WC AS 03 33 
WC AS 03 34 
WC AS 03 35 
WC AS 03 36 
WCAS033 7 
WCAS0338 
WCAS0339 
WCAS034n 
WCAS0341 
W.CAS0342 
WCAS0343 
WC AS 03 4 4 
WCAS0345 
WCAS0346 
N CAS 03 47 
WCAS034R 
WCAS03 49 
WCAS0350 
WCAS0351 
WCAS0352 
WCAS0353 


4 PM ADJUSTMENTS OF VAR ICTUS VALUES 

198 If l HOUR #NE • 16) UU TO 202 
ACX90 = 0.9 *UeX90 ♦ PET) 

AE X9 6 = 0 • 9 6 * ( AE X9 6 ♦ PET) 

I NF IL TR AT I CN CORRECTION 

SIAM = ( AFX96/AETX) **S1 AC 
IF 1ST AM • L T . 0.33 ) S I AM = 0.33 
BFNX = C • 97+8PNX 
IF I PET .EC. 0.0) GO TO 202 
EVAP-TRANS LOSS FROM iGRCUNLWAT ER 
GWET = GrtS*GWbTF*Pf TAPPER 
GWS = GWS - GWET 
BFNX = RFNX - GWET 
IF I BFNX .IT. 0.0) RFNX = 0.0 
AMPET = AMPET ♦ PET 
IF (PET .GE. UZS) GO TO 199 
UZS * UZ-S - PET 
AMNET = AMNET > PET 
GO TO 202 

199 PET = PET ~ UZS 
AMNET = AMNET ♦ UZS 
UZS = 0.0 

LZSR = LZS/LZC 
IF (PET .GE • ETLF4LZSR) 


200 

201 


203 


SORT ( ABS ( ( SQER ( KRTM I ) - 

1.0) U 


_ . GO TO 200 

SET = PET*( 1.0 - PET / ( 2.0*ETLF*L Z$R I ) 

GO TO 201 

SET = 0 « 5*ET LF*LZSR 
LZS = LZS - SET 
AMNFT = AMNET t SET 
202 CONTINUE 
END OF HOUR LOOP 

DSSF! DAT) = TDSF/24. 0 

IF (CCNUPT (II) .EG. L) DSSF { DAY ) = DSSF ( DAY) ♦ DDIW(DAY) 

AMRTF = IAMRTF ♦ ORSMDAY) 

AMSTH = I AMS T F ♦ DSSF (DAY) 

IF (CCNUPT (6) .ED. 1) EDLZS ( DAY ) = LZS 
C STORE ERRORS AND FLOW DURATION ' 

IF (CCNUPT (4 ) .ME. 1) GO TO 204 
ERR = DSSF (DAY) - OR SF (DAY ) 

IF ( DRSFIDA Y ) .LT. 1.0) KRFMT = 1.0 

IF ( DRSF ( DAY ) .GT • 1.0) KRFM I - 2 .3 * ALOG ( DR SF (DAY)) ♦ 2.0 

CRFKI (KRFMi) = CRFM I (KRFM I ) ♦ 1.0 
SERR ( KRFM I ) » SERR (KRFM l ) + ERR 
SfcRAURFMl) = SERA ( K -R F M I ) + ATS (ERR) 

SQER (KRFM I) = SQER (KRFM I) + ERR*ERR 
SCSFCKRFMI ) = 0.0 

1FKCRF 4KKPFMI ) . GT . 1.0) SES F (KRF M l ) 

1 iS ERR ( If RF M I ) ** 2 / C R F M I ( KRFM I V) / ( C« F*I (K»PMl ) - 

204 CONTINUE 
DAT E = 0 AY 

IF ( (M0NTH.EQ.4) . AND. ( MCAY. E0.31 1) DATE-MOD( DAY, MDAY) 

IF (MONTH. NE.4) D ATE-MQO ( DAY, MDAY) 

WRITE (6,9 ) DATE* ( ThSF (HOUR ) , HCUR-1 ,121 
9 FO RM A T (1 H / f 1 X / , 1 X , 1 4 , 2 X ,2 HA M , 1 X , 6 F 8 . 1 , 3 < , 6F * . I ) 

WR!TE(6 f LQ) (THSF(HDUR) ,HQUR-13,24) , DSSF (DAY ) 

10 FORMAT ( 1HJ , 6X , 2HP M * LX. 6F8. 1 ,3X, 7FS.L ) 

IFITDFP24.LT. 12.0) GO TO 205 
TDFP12 = TDFP24 - 12.0 

11 FORMAT ( 1H/ , 10X, 8HMAXI HUM?,. F 8. I , 2X , 6HC . F . $ . , 5 X , 4HT I ME , 3X , P5 . Z , 2X , 

1 4HP.M. ) ■” ■ ■ : - ■ * 

GO TO 2C6 

205 CONTINUE 

12 FORMAT ( 1 H / ? 1 0 X , 8 H M A X I M U M= t F 8 • 1 • 2X f 6 HC • F • $ • , 5 X , 4 H T I M E , 3 X , F 5 • 2 § 2 X , 
1 I 4HA.M. ) - 

206 Iff ( CQNOPT ( 7 ) .EG. 1 .AND. S DEPTH . GT. 0 .01 WRITE (6,13 j DATEf 
1 SD t P TH » ST MD , S A X , T A NS v , S PL W 

13 FORMAT ( 3X. I 4 , 2X ♦ 7HSD EP TH= , F 8 . 2 , 2X , 5HSTMD = ,F6 . 2, 2X, 4HS A X= , F6 . 2, 

1 2Xt 6HT ANS M =, F6 • 2, 2 Xt 5HSPL W= f F6.2 1 

M A X I = M A X I ♦ l 

c monthly summary storage 

STMRQStMAXl i 1 ) “DSSF (DAY) 

TMSTF ( MAX I , l i—AMSTF 
AMSTF = 0.0 

tm rtf (Month ) = amrtf 

AMRTF = 0.0 
E M B P N X ( H A X I , 1 ) - 8 F N X 
TMPREC (MAXI . 1) = AMPREC 
4MPREC = 0.0 ■ 

TMRPM( MONTH) - AMR PM 
AMRPM = 0.0 
TMBF (MAXI » 1 J-AMBF 
. AMBF = 0.0 
TMIRMAXI, l)=AMIF : V.V 
AM I F = 0.0 '■ . . 

TMSbtMAXl , 1 ) = AMSE 
AMS E = 0.0 ; 

TMPETj MONTH) = AMPET 
AMPET = 0.0 


WC.AS03 54 
WCAS03 55 
WCAS0356 
WCAS0357 
WCAS03 5 3 
WC AS 03 5 9 
WC AS 0340 
WCAS0361 
WCAS036? 
^CAS 0363 
WC AS 0364 
^CAS0365 
WCAS0366 
WCAS0367 
WCAS0368 
WCAS 0369 
WCAS0370 
WCAS 03 7 1 
WCAS 03 72 
WCAS 03 73 
WCAS 03 74 
WCAS 03 75 
WCAS 03 76 
WCAS 0377 
WCAS 03 7 8 
WCAS 03 79 
WCAS 03 80 
WCAS0331 
WCAS 03 B2 
WCAS0333 
WCAS 0384 
WCAS03B5 
WCAS 03 86 
WCAS 03 8 7 
WCAS 03 88 
WCAS 03 8 9 
WC AS 03 90 
WCAS 03 9 1 
WCAS 03 9? 
WCAS 03 93 
WC AS 03 94 
WC AS03 °5 
WC As 03 9 6 
WCAs0397 
WC AS 039 3 
WCAS 03 99 
WC A S 04 30 
WCAS 04 01 
WCAS0402 
WCAS 04 03 
WCAS 04 04 
WC AS 0405 
WCAS 0406 
WCAS 34 07 
WCAS0403 
WCAS0409 
WCAS 04 10 
WCAS 04 n 
WCAS0413 
WCAS 04 1 4 
WCAS0415 
WCASOOOO 
WCAS04L7 
WCAS 04 18 
WCAS0419 
WCAS 04 20 
W(jAS042l 
WCAS 04 2 2 
WCIAS04 23 
WCIAS 0424 
WCAS0425 
WdAS 0426 
WdAS 0427 
WCAS0428 
WC AS ^429 
WC AS 043 0 
WCAS 043 t 
WCAS 04 32 
WCAS0433 
WCAS 0434 
WCAS 04 35 

WCAS 0436 
WCAS 0437 
WCAS 04 38 
WCAS0439 
WCAS 0440 
WCAS 0441 
WCAS 0442 
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MNfc 


220 


TMNETtMCNTH) = AMNET 

AMNET =0.0 

TMSNEI MONTH) = AMSNE 

AMSNE =0.0 11 

TMFSILIMONTH) = AMPSIL 

AMFSIL = 0.0 

EMGWSI MAX I » l ) =GWS 

UZC = SUZC*AEX90 + BUZC*EXPI-2.7*LZS/LZCI 
IF I UZC .LT. 0.25 J UZC = 0.25 . 

EMUZC ( MAX !« l ) =UZO 

EMUZSIMAXI . 1 )=UZS 

EMS I AMI MAX I « l )=SIAM 

EMLZSIMAXI »l)=LZS 

EM I F S ( MA X I » 1 ) = I F S f 

CONTINUE i 

IF (M0AY.EQ.33 71 M0AY=59 


3001 


STORE MAXIMUM DAILY STREAM FLOW FOR YEAR 
TFMAXYI MAXI )=TFMAX 
CONTINUE 

IF (OAY.EO.EDATE I 00 TO 221 

CALL DAYNXTCDAY.DPY! 

IF IOAY.GT.LOAYI MUAY=LDAY 
IF ( CAY.EQ . 366 ) MDAY=337 
GO TO 152 

C ENO OF DAY LOOP * 

221 CONTINUE 

RETURN r . , , 

END - v • 


WCAS0443 
WCAS0444 
WCAS 0445 
WCAS 0446 
WCAS 04 A 7 
WCAS044B 
WCAS0449 
WCAS0450 
WCAS045L 
WCAS0452 
WCAS0453 
WCAS0454 
WCAS0455 
WCAS 0456 
WCAS0457 
WCAS 04 58 
WCAS 04 5 9 
WC AS 0460 
WCAS0461 
WCAS046? 
WCAS0463 
WCAS0464 
WCAS0465 
WCAS0466 
WCAS0467 
WCAS 04 69 
WCAS 0464 
WCAS 04 70 
WCAS 0471 
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SUOROIJT I NE ZEROP(POAY, DATES, MONTH, FUAT E ,MSf)D 1C , PRATE , LOAY ) ZEROOOOl 

COMMON/ PLGTC /DK SF, OS SF.CONOPT.THSFD.TMSrF, ST MRUS ( 1? 1,6) « OPY, TITLE, ZEROOOO? 
2KFLAG, ICFl AG, ZEK00003 

1IEN0FG,STUUY(2)*PEAKS*PHKS,NSPTS» TlISFDM, T FMA XD« TMRTF, JPLDT, Z EROOO 04 

2 NCTIU ,C r R l ,F IRR.RICY.OPSt , GUuFSM , SP nr LWi, SPT WCC , SP M , FL 0 ! F , ZEPOOOQ5 

3 XDNFS.FFUR, FFSI , MRNS.M, DSKvIH, PXCS A, KMP F , RGP.Mi), AR E A , F I,MP, ZEP00006 

A SATRI.UHFA, ZER00007 

BMNRD* ZER00008 

4 FV,'TR*VINTMR,BUZC»SUZC,LZC,rTLF,SU-7Wr f GWhTF f Si AC , OM I P , ZERQ0009 

5 8 1 VF , OPS S »OPSL , GFMN , UFMN IS, I FkC* CSK X , I-SRXfCHC AP , E XCP V , ZFROOO 1 3 

6 OFNLR , D FP C * GWS , UZS ,L ZS, 8FNX , I FS , BTHR C , RFKL , RF.NP L , P, c NHK , IFPRC, ZEROOPL1 

7 I FRL, LSHFT , N3TR l , FNTR I *MXTU 1 ,NCSTRI ,iIIRl»TFCFS,EPAFT , PPcK, Z EROOO 12 

8 TPLR » V l N TCP , HSt , NT T!< I » SP I F , CPF , S »>H * OF US * OPUS I $ , GFK , CFP. I S.PEtS, 2 FRO 0013 

9 RHFO, LRHF.AMIF, AMNTT , AWFT , AMSN.E, AMP S I L ,SASPX ,S AP AX , SRX , Vw IN, Z6P00014 

A WCFS ,RHFMC, SSRT , OF RF , OFRF l S , PSDF » EQCF I S, SfIFRF , SOFF.F ! , ZERU0015 

B SDEP TH , MUL T I , I D , AS M, WT4 AM »W T 4PM , S AX , T ANSH » SPT W , STMD, STMO » ASMRG* ZERU00V6 
X0EPFN0(2 I , VAR (N(2 ) ,NPTS,JULD| , I YR , T.JOAk Y ( 5 , l » , ZER00017 

Y TO MARY ( 7,1) , TdSAk Y ( 5 ,6 » 1) ,TSL)ARY(6, l) , TSM AP Y ( 8,1), ZEROOOIB 

ZTS S ARY I 3,6,1 ) , T 3MCRY ( 1 1 ,7 SO CRY ( 1 1 , T SR AP. Y (1 , 6 * l ) » ZFRO0019 

WTORARY (1,6,1), i ZER00020 

CORSFT (3661,0 SSF T( 366 ) , M I , N I , MULT , TMRT FT l IP ) , T MS T FT ( 1 2 ) Z EROOO ? 1 

COMMON/ COMM A/ EM 3FNX , EMGWS , t Ml FS, T ML ZS , F MS < A A , SMU7X , LMUZS , T* 8F , ZFROOO 22 

1TM IF ,TMPRC C « TMSF , CRF-^ 1 , DO l W . I'M NT , DMXT , PR G D M * DRHP » OR SGP , OPPT , EDI ZS,ZERCI0023 
2EPCM, SERA , SfcRR, SESF , SOER, THSF , TMFSlU » TMNET , TMOF , TMPFT , TMRPM, TMSNE* ZEKU0024 
3TMSTFI *T200FH,T20PPH,TMRTFl .JULOAT , ZER00025 

4TFHAXY, UZC. * AfcTX,DAY, NSGRO , A'b X90, S I AM, NDSOP, RGPM, NDSDR , YR1 , ZER00026 

5TRHF , : - ZER00027 

5SINDEX, INDEX, AtX96, MAXI , YR2 , B YLZS, 8 Yl TS , DYUZS ZER00028 

C KENTUCKY WATER SHED MODEL (VERSION OF JUNE 6, 19701 ZER00029 

C BASED ON STAMP UP ) WATERSHED MODELS III S IV ZER00030 

01 MENS I ON BTR l ( 99 I , CCNOPT ( 16) * CRFM T ( 22 ) , CTR I ( 99 I , DD I W ( 366 1 , ZER00031 

1 DMNT (3661, DMXT(3o 6I, OPSEl 366) , DRC.PMC 366 ) , DRHP ( 366 , 24) , ZEROOD32 

2 DRSGP ( 366 ) , CiPE T I 366 J, :DRSP(3o6), PSSr ( 366 I , FOLZS ( 366 I :, ZER00033 

3 EMBFNX1 IS ,3) ,TMGWS( 15,3) ,t'OrS( 15,3) ,f ; tLZS( 15,3) ,EMS l AV (1 5 , 3 ) , ZER00034 

4 E MUZC ( 15,3) , EMJZS ( 15,3T,FPCM( 12),FIRP ( 15) , MEDCY ( l? ) , "EDWY ( 1 2 ) » ZFROOO 35 

5 RICYI37I, S ATR 1(99), SERA (22), S FRR ( 2 2 ) , SS SF ( 22 ) , SQtR ( 22 I , ZER00036 

6 THSF(24),TITLF( IS) , TMPFT 15,3) «T MFS IL( 1 2 ) ,TM(F( 15,3 I , T !■' N F T ( 12) , ZFROOO 37 

7 T MOF ( 15, 3) , TMPET ( 12 I , TMPkFC ( 15,3) , TMk P M ( 12) , TMRTF ( 12) ,TMSE( 15,3), ZER0003B 

8 TMSNE( 12) , TMSTF( 15,3) , TMST F 1 ( 15 , 3 ) , T 200FH( 2 1 ) , T20PR H ( 2 1 * , ZER00039 

. UHFAI 99 ) , TMRTF IT 12) , JULOAT ( fa ) ,ThSFD( 744, 3 ) ,TFMAXY (366) , ZER00040 

A PEAKS (6 ) , PHRS(6) ,NbPTS(6), THSFU.MJ 6) ZER0004V 

LOGICAL LSHFT ZER0004? 

INTEGER CDS DR, CN, CPNCVPT, DATE , OAT, DP Y, EHSGD, HOUR » HRF » HRL , Pf) AY, - ZER00043 

l PRD»RHPD,RHPH,RSEU , SGMD, SGR \ , SORT 2, YEAR , YR 1 , YR2 , PHR S , S l NDEX ZFROOO 44 

INTEGER TOMARY, TSMAR Y, TOUAR Y, TSDAR Y , TUSARY, TSSARY Z EROOO 46 

INTEGER CATES, ED ATE ZER00046 

DIMENSION RPLCTC ( 1832) ,RCO,MMA( 12087) , ZER00P47 

EQUIVALENCE ( DPY, RPLCTC fl )),( CRFM 1 , PCOMMAtl) ) ZER00048 

REAL l FP P C ♦ 1 FP C , t FRL , I FS , L ZC , LZRX , L ZS , L ZSR , MHSM, MNRO , MRNSM , NHPT ZERR0046 
DATA MEDCY/ 0, 31,59,90,123, 15 1 , 1 B l , 21 2 , 242 , 273 , 304 ,334/ ZER00050 

OATA MEDKY/304, 334, 365,31, 59, 90i,120, 151, 181,212, 243, 273 / ZER00051 

REAL MXDRSF,mxDSSF,MXMRSF , MXMS SF , SSUD ZER00052 

REAL S SQM, SSQL) ) , SS0.-1I , VDRSP , VPSSF ZER00053 

REAL VMR SF , VMSSF , SDOR SF, SDDSS F, SDMRSF , SDMSSF , SMDD, SMMD, SMSQD, ZFR00054 

* SMSQM ZFROOO 56 

REAL MDRSF, MDSSF ,MMRSF ,MMSSF . ZER00056 

BACKSPACE 11 " ZFR00057 

READ (11) (RPLOTCI I), 1 = 1,1832) . ZER0005B 

BACKSPACE 18 ' ZERO0059 

REACT 18 ) (KCOMMA(I), 1=1,12037) . . ZER00060 

150 CONTINUE . ‘ ZER00061 

OATE=PDATE • ■ . ,-.i •. . ZER00062 

DAY-DATES ZER00063 

MDAY=P0AY . . . ZERn0064 

S t NDEX=0 ' ' ' ' ' ' ' ‘ . - ZER00065 

MAXI = 0 . :..A. .v, .. .i .v . ■ ZER00066 

AMRPM = 0.0 ZER00067 

AMPREC = 0.0 . ... ZER0006B 

AMBF a 0.0 . ■ - ‘ ’ ZER00069 

AMSE = 0.0 ■. ■ - . ZER00070 

AMSTF =0.0 ZERO 00 7! 

AMRTF = 0.0 . ZER00072 

IF (DPY .EQ. 3661 MEDWY(5)=366 - ZER00073 

3 FORMAT 1 1H 1 , l X , • NU PR EC 1 P HOURLY CFS VALUES' ,//, 1 X ,4A4 ) ZEROOOOO 

WR I T E ( 6 , 3 ) MSDDIC ZER00075 

C BEGIN DAY LOUP . ZER00076 

I MONTH = MGN'TH • ' ZER00077 

152 TDSF = 0.0 .. - ZER00078 

IF (MONTH. NF. 4) GXJ TO 148 ZER00079 

IF (MDAY.NE. 31) GO TO 149, ZER00080 

148 IF (DATE. GT • (MOD ( D AY , MO AY H 1 l M0NTH=M0NTH + 1 ... ZER00081 

149 CONTINUE t. ... -. ZER00082 

PET=EPCMl IMONTH)+DPCT(DAY) ZEROOC33 

PETU = PET ZER00084 

TFMAX = 0.0 ZER00085 

C EVAPOTRANSP IR AT I ON ADJUSTMENTS .. . .• , . ZER00086 

IF ( CONOPT ( 7 ) .ME. 1) GO TO 163 ZER00087 

IF ( DM XT IDA VI - 4.3VFL0IF ,LT. 40.0) PET =0.0 ZER00098 

IFISPTW .GT. SPTWCC) PET = FFOR*PET ZER00089 
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CALCULATION CJF SNOW EVAPORATION 

IMOMNT(UAY) .GT. 32.0 .OR. SPTW.Lfc. DPSL'(DAY)) GO tO 153 
Sc = OPSF ( DAY ) 

AMSNE = AMSNE ♦ SE 
SPTW = SPTW — SE 

' IFISFMO ,GT. 0.0) SDEPTH = SDEPTH - SE/SPMD 

153 00 202 HOUR =1,24 

154 I F( HOUR . EO. SGRT ♦ 1) RGPM = DRGPM ( DAY ) 

IF ( HOUR . FU. 9) H SE = ( FWTRFPET) / 1 2 .0 

IF I HOUR . FU . 2 1 ) HSfc = 0.0 

PRH=0 

AMPREC = AMPREC + PRH 

ENTER SNUWMFLT SUBROUTINE . 

IF ( Cf’NUPT ( 7 ) .EO. 1) CALL SNOMELI HOOF SM , SPTWCC, SPM, ELD l F ,DA Y , 

1 SPBFLW, XONFS, F FOR ,FF SI VMRNSM, OSMGH , SDEPTH, STMD, PXCSA.HOUP, 

2 g A X , S OF P F , 0 FR F I S , S OF R F I , A MF S l L , P R H , SP T W.TANSM , S PLW , SFMD , OFR F , 

155 3 AMRPM A = ? AMRPM ' + * SARAXtOMXT tDMNT »RICY»FIRR) 

156 TOFR = 0.0 
ARHF = 0.0 

15 MINUTE ACCOUNTING AND ROUTING LOOP 
00 187 PRO = 1,4 
... PERI = 0.0 . 

PPI = 0.0 . 

OFR =0.0 • 

OFR I S = 0.0 
WI = 0.0 
WE I FS = 0.0 
PMEUZS = 0.0 
PMELZS =0.0 
PMEIFS = 0.0 
PMEOFS = 0.0 
PEP = 0.25*PRH 

^ IF LCONOPT ( 2 ) .EO. 1) CALL PREPRDI RGPM, DRHP, DAY, HOUR, DPY , PRD , PEP, 

IF(PEP .GT. 0.0) GO TO 157 
1FI0FUS ,GT . 0.0) GO TO 159 
IF ( IFS .GT. 0.0) GO TO 170 
IFINRTRI .GT. 0) Gt? TO 172 
TRHF = 0.0 

IFIRHFO .GT. 0.0) GO TO 181 

GO TO 184 . 

RAINFALL UPPFR ZONE INTERACTION 

157 IF ( PEP .CF. VINTCR) GO TO 158 
UZS = UZS + PE°*TPLR 

VINTCR = VINTCR - PEP 

PPI = 0.0 . 

PEBI = 0.0 
PMEUZS = PEP 

IFIOFUS .GT. 0.0) GO TO 159 
GO TO 170 

158 PPI = PEP - VINTCR. . 

UZS = UZS + VINTCR*TPLR 

VINTCR = 0.0 
LZ SR 9 LZS/LZC 

UZC * SUZC*AEX90 + HUZC*EXP (-2.7*LZSRI 
IF (UZC .LT. 0.25) U7.C = 0.25 

UZRX = 2.0*ABS(UZS/UZC - 1.0) +1.0 . 

FMR = II. 0/(1. 0 + UZRX ) )**UZRX 
IF (UZS .GT. UZC) FMR = 1.0 - FMR 
PEBI = PPI*FMR 

PMEUZS = PEP - PEBI ' 

UZS = UZS * PPI - PEBI 
LOWER ZONE AND GROUNDWATER INFILTRATION 

159 LZ SR = LZS/LZC 

EIO = 4.0*LZSR - ’ • 

IF (LZSR .LE. t.O) GO TO 160 
El D = 4.0 * 2 . 0* ( L ZSR - 1.0) 

IFILZSR .LE. 2.0) GO TO 160 

El D = 6.0 • ■ • =- 

160 PERI = PEBI + OFUS I - v 

CM I R = 0 • 2 5 *S I I R / ( 2. 0* *E I D ) 

Cl VM = Bl VF*2.3**LZSR 
1FICIVM .LT. 1.0) CIVM = 1.0 
PEA I = PEBl*PEHl/(2.0*CMlR*CIVMI 
WI = P E B I *P E B I / ( 2 • 0* CM I P ) 

IF ( PEP I .GE. CM I R ) WI = PEBI - 0.5*CMIR 

IFIPEBI • Gfc . CM IR*C I VM ) PEAI = PEBI - 0.5*CMIR*CIVM 

WEIFS = WI - PEAI 

IFIPEBI .LE.CFUS) GO TO 161 

PMELZS = (PEBI - WI )*l (PEBI - OFUSl/PEBI) 

PMEIFS = WEIFS*UPEBl - OFUSl/PEBI) ~ — 

PMtCFS = PE AI *( I P EB1 - OFUSJ/PEBl) 


INF ILTRAT I ON 


161 CONTINUE 

IF ( (PEAI - OFUS) 
EOO = (OFUS ♦ PEA 
GO TO 163 

162 EOO = EQOF*( ( PEAI 


SI .GT. 0.0) GO TO 162 
PEA 1)72.0 

EAI - OFUS)**0.6 ) 
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ZER00090 
ZERU0091 
l ER00092 
n no oo or 
IE R00094 
ZFR00095 
ZER00096 
ZERO 00 9 7 
ZFP00098 
ZERO 0099 
ZEROOl OH 
ZEROOlOl 
ZERO 0102 
ZERO 01 03 
ZErR00104 
ZEROOl 05 

ze R00106 

ZEROOl 07 
ZEROOIOR 
ZEROOl 09 
ZEROOl 10 
ZEROOl 1 1 
ZEROOl 12 
ZEROOl l 3 
ZER00114 
ZEROOl 1 5 
ZEROOl 16 
ZEROOl 17 
ZEROOl l R 
ZEROOl 19 
ZEROOl 20 
ZiER 00121 
ZEROOl 22.. 
ZEROOl 23 
ZEROOl 24 
ZER00125 
ZEROOl 26 
ZEROOl 27 
ZEROOl 28 
ZEROOl 29 
ZER00130 
Z;ER0013! 
ZEROOl 32 
ZEP 001 33 
ZEROOl 34 
ZEROOl 35 
ZEROOl 36 
ZEROOl 3 7 
ZEROOl 3 R 
ZEROOl 39 
ZER00140 
ZERO0141 
ZER00142 
ZEROOl 43 
ZEROOl 44 
ZER00145 
ZEROOl 46 
ZER00147 
ZEROOl 43 
ZEROOl 49 
ZERO 0150 
ZEROOl 5 l 
ZEROOl 52 
ZEROOl 53 
ZEROOl 54 
ZEROOl 55 
ZEROOl 56 
ZEROOl 57 
ZEROOl 53 
ZEROOl 59 
ZEROOl 60 
ZER0O16 l 
ZERG0167 
ZEROOl 63 
ZEROOl 64 
ZEROOl 65 
ZEROOl 66 
ZEROOl 47 
ZER00163 
ZEROOl 69 
ZEROOl 70 
ZEROOl 71 
ZEROOl 72 
ZEROOL 73 
ZEROOl 74 
ZEROOl 75 
ZER00176 
ZEROOl 77 


I [ vi ;; 1 



; "-i 







i 

tf. 

1 



n 


163 


164 

165 


166 

167 


168 


IFUOFUS ♦ PEAI) .GT* C £.0*600) | EOO = 0.5*(0FUS ♦ PEA! I 
IFUOFUS ♦ PEAI) • LE • O.OOl ) GO TO 164 i 

OF P = 0.25*C1FRF+C ((OFUS ♦ P fc A [ 16 0 • 5 ) * * l . 6 7 )!* (1 l * 0 ♦ 0*6 * ( ( OFUS ♦ 

1 PEAn/(2.0*£CDl )**3*0)**t.67) i ! 

I F ( OFR .GT. ( 0. 75*PF Alt} OF R - 0.75*PEAl ! 
l F ( F I MP • t Q • 0.01 G(1 TO 160 
PEIS = PPI ♦ OFUSIS 

IFUPtlS ~J?FUS!S) .GT. 0.0) GO TO 166 
EQDIS = (OFUSIS + PE IS 1/2.0 * 

GO TO 167 ( ; | • ... 

EQUIS = FODFIS^UPEI S - OFUSIS 1**0 . 6) ! 1 ! 

IF ( (OFUSIS + PEIS) .GT. ( 2. Q*eQDI S ) ) FOD I S 0. 5* (OrUS I S ♦ PEIS) 

IF ( ( OFUSIS + PEIS) .LE. 0.01) GO TO 168 

OFPIS = 0.25*QFRFIS*<( (OFUSIS ♦ P E I S J * ) . 5 ) ** 1 .67 1 * ( < l . 0 ♦ 0.6*(( 
1 ! OFUSIS + PE I S ) / ( 2 • 3* EQUFl S) ) ** 3. 01 **1*6 7) 

IjF ( OFK I S .GT. PEIS) QFRIS j= PEIS 

TOFR = TOFR ♦ FPFR*UFR ♦ f^IMP*OFRIS ♦ PPl*FWTR 


169 


OFUSIS = PEIS - OFR l S 
OPUS = PEA I - OFR 
IF ( OFUS .GE. 0.001) GO TO 169 
LZS = LZS ♦ OFUS 
OFUS = G.O 

OFRIS * UFRIS ♦ OFUSIS 
OFUSIS = 0.0 
LZRX < l.5*ABS<LZS/LZC 


- A. 01 t 1.0 


FMR = (l.C/tl.O ♦ LZRX))**LZPX 


1.0 - FMR*{ LZS/LZC ) 


- WI T* ( 1.0 - S UB WF) * F PER 


IF (LZS • L T • L Z C ) FMR j .« 

PLZS - FMR* ( PER I - WI) 

PGW = (1.0 -FMR ) * ( PE R I 
GW S = GWS + PGW 
BE N X = BFNX ♦ PGW 
LZS = LZS ♦ PLZS 
IFS = IFS ♦ WEIFS4FPER 
SPIF = I FP L* I FS 
AM IF = AM IF + SPIF 
IFS = IFS - SPIF 
IF ( IFS .GE. 

LZS = LZS + 

IFS = 0.0 

UHFA(l) = FPER*OFR ♦ PPI*FWTR ♦ FIMP*0FRIS ♦ SPIF 
SPQR = UHFA ( 1 ) 

ROUTING 


170 


O.OOOUL 

IFS 


GO TO 171 


171 


172 


173 


173 


174 


175 


• AND. KTRI .GE. 2) TRHF = TRHF ♦ 


176 

177 


178 


179 


NRTRI = MXTRI 


s a. 


GO TO 180 


I: 


IF (CONUPT ( 12) .NE. I ) GO TO 
URHF = URHF ♦ 0.25*UHFA( l) 

I F ( PRO .NC. A) GO TO 181 
UHF A( i ) = URHF 
TRHF = 0.0 
KTRI = NCTRI j 

IF ( CCNOPT 1 13) .EQ. 11 KTRI = NCSTRI 
URHF = UHFA (KTRI) \ 

IF (URHF .LE. 0.0) GO TO 176 
TRHF - TRHF ♦ URHF*CTR I ( KTR I ) 

IF ( CONPPT ( 13 ) .EQ. 1 .AND. LSHFT 
l URHF*SA7R I ( KTRI - l) 

UHFA (KTRI ♦ 1) = URHF 
GO TO 177 

UHFA (KTR I 4- 1) = 0.0 
KTRI = KTRI - l 
IF (KTRI .GE. 1) GO TO 174 
I FI URHF .LE • 0.01 GO TO 179 
NRTRI ^ NCTK I 
IF ( CCNOPT (13) • EQ. 11 
NRTRI = NRTRI -f 1 
UHFA ( 1 I = 0.0 
IF ( CCNOPT ( 13) .NE. 1) 

NNSTRI = NCSTRI ♦ 1 
UHFA ( NNSTR I ) = 0.0 
URHF = 0.0 

IF ( SRX .LE. CSRX) SRX = CSRX 
RHFl = TRHF - SRX* ( TRHF - " RHF 0 ) 

RHFO = RHFl 

IFIRHFO .LT. RHFMC) RHFO = 0.0 
TFCFS = (4.0*RHFl + CBF - HSE)*WCFS 
IF (CCNOPT (13) .NE. 11 GO TO 182 

I F ( CONUPT (12) . EQ . 1 • AND • PRD .NE. 4) GOTO 182 

CALL R TV AH Y ( CTR I , SATK I ,BTR I , CHCAP , NBTRI * MXT R I , NCSTRI * EXQPV , LSHFT f ZER 002 51 
1 TFCFS ) ZER002 54 

OATE = MOD (DAY t MO AY ) ZER00255 

IF(LSHFT) WRITE (6 »6) D ATE t HOUR f PRD , NCSTRI ZER00256 

6 FORMAT ( 2X , 1 2 , 2 X t I 2 , 2 X , 1 2 1 2X f 20 HH I S T UGR AM CHANGES TO«lX* I 2»1X« ZER00257 

* 1 8HELEMENTS) ZER0n258 

182 CONTINUE ZER00259 

IF (TFCFS .LE. 0. 5*CHCAP ) SRX -CSRX ZER00260 

I F ( ( TFCFS • G T • Os 5 * C HC A P ) .AND. (TFCFS .LT. 2.0*CHCAP)) SRX = CSRXZER00261 
1 ♦IF SR X w CSRX)* ( ( TFCFS ^ 0. 5*CHCAP) /( 1 .5*CHCAP ) 1**3 
IF(TFCFS .GT. 2.0»CHCAP) SRX = FSRX 
IF (TFCFS .LE. TFMAX) GO TO 183 
PROF = PRO 7 

TDFP24 - HOUR 


180 
* 8 1 


I 


ZEROOt 7,8 
ZERDOl 79 
ZEROOL Bp 
ZEKOOl 8.1 
ZFROOIB^ 
ZER001B13 
ZFRnOl 84 
ZFR001 85 
Z ER00186 
ZEROO 1 87 
ZFROOIBB 
ZEROO L 99 
ZEROOl 90 
ZFR[)019L 
ZEROOl 9? 
ZEROOl 9 ( 3 

ZEROOl 9!4 
ZEROOl p5 
ZEROOl 9j6 
ZEROOl 97 
ZERO 0198 

ZE'RnOl99 
ZEROO? on 

ZER00201 
ZEROO 2 0.7 
ZEROO? 03 
ZER 002 04 
ZERO 02 05 
ZER 002 06 
ZER00207 
ZER0020,8 
ZERO 02 09 
ZER 002 1|0 
ZER002 11 
ZER 002 1,2 
ZERC102 13 
ZERO 02 1,4 
ZER002 15 
ZEROO 2 16 
ZEROO? 1|T 
ZERO0218 
Z EROiO? 1 ! 9 
ZFP00220 
ZER00221 
ZER00222 
ZEROO? ?3 
ZER00224 
ZER002 ?5 
ZER00276 
ZER002 ?7 
ZER00228 
ZER00229 
ZEROO? 30 
ZER00231 
ZER002 3? 
ZEROO? 33 
ZER 002 34 
ZEROO? 35 
ZER 002 36 
ZER 002 37 
ZEROO? 3ft 
ZER0;0? 39 
ZER00240 
ZER0;02A1 
ZERU!02 42 
ZER00243 
ZER00244 
ZER00245 
ZER00246 
ZER00247 
ZER00248 
ZER 002 49 
ZER00250 
ZER 002 51 
ZER00252 


ZERO0262 

ZER00263 

ZER00264 

ZER00265 

ZER00266 
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IF (PRO .It. 31 TDFP24 = ITDFP24 - 1.0) «• 0.15*PR0F 
TFMAX = TFCFS 

183 AKHF = ARHF ♦ RHF l 

C STORM OUTPUT REQUESTED 3Y CONOPT I l) 1 

184 IF (CONOPT! 1) .NE. 1) GO TO 106 1 

IFICAY . Nfc . CDSORl GG TO 186 

IFIHOUK .FG. I .AND. PRO .E ). 1) WRIT! (6,7) 

7 FORMAT I 1H/ / *2 IX * 19HR A I NFALl 0*1 PC) S I T I O '! , 12X* lOHMOISTURF STOP AGP* 

1 14*, J7HSTREAMFL0W ORIGIN, .6X,14HSTPEAM OUTFL I3W/2X , 1 1 6HDY HR PD 
2IN EUZS ELZS EIFS EOFS UZS CZS 1FS OFS 

3P0F SPIF SPOF SPTF INCHES CFS) 

DATE = MOO(OAY,MDAY» 

OFS = OPUS *FPER + OFUS l S*F I MP 

SPOF = OFK*PPER + OFRIS*FlMP + PPI*FWTR 

SPHF = 0.25* ( CBF—HSE ) 

SPTF = SPPR ♦ SP3F 

SPOR = 0.0 • 

IFIRHFO .LE. 0.0) TFCFS = ( CBF - HSE)*WCFS 
RSPTF = 0.25*TFCFS/«CFS 

WRITE (6, 8) DATr, HOUR , PR 0, PF P , PMEUZ S .PMCLZSfPME I FS * PMEOFS , UZS *LZS 
1,IFS,0FS, SPOF, SPIF.SP8F, SPTF, RSPTF, TFCFS 
B^FORMATIZX, I 2, IX, I 2, IX, I 1,51 1X.F6.4) ,2X, 4 1 F7. 4) , 2X, 5 ( IX » F6.4) , IX, 

IFIHOUR .EQ. 24 .AND. PRO .EQ. 4) GO TO 185 
GO TO 186 

185 NDSDP = NOS DP ♦ l 

IFINDSDR .EO. NDSDP) GO TO 186 
CALL DAYNXT ( CDSDR *0P Y) ” 

186. CONTINUE 

. , IF I VINTCR .LT. 0.25*VINTMR) VINTCR = VINTCR ♦ DPET(0AY)/<)6.0 

187 CONTINUE 

C ENO OF 15 MINUTE! LOOP 

IF ( CONOPT ( 5 ) .NE. 1) GU TO 197 
C HOURLY OVERLAND FLOW AND RAINFALL SORTING 
IF ( TOFR .LE. 0.0) GO TO 193 

KT 20 = 20 • - . 

188 IFIKT20 .LT. 1) GO TO 192 

LF I TOFR .GT. T200FHI KT20) I GO TO 189 

GO TO 190 . • . • 

T20UFHIKT20) - . • , 


189 


190 

191 

192 

193 

194 


195 


196 


T20CFHIKT20+1 J = 

GO TO 191 

T 2 OOFFM KT20+1 ) = TOFR 
GO TO 193 : - - • 

KT 20 = KT20 -r l . ... 

GO TO 188 
T200FHI l ) * TOFR 
IFIPRH .LE. 0.0) GO TO 197 
KT 20 = 20 

IFIKT20 .LT. 1) GO TO. 196 
IFIPRH .GT. T20PRHIKT20) ) GO TO 195 
T20PRHI KT20 ♦ 1) = PRH 
GO TO 197 

T20PRHIKT20H) = T20PRHIKT20I 
KT 20 = KT20 - 1 
GO TO 194 

. . T20PRHI 1) = PRH . ..... . 

C ADDING GROUNDWATER FLOW 

197 CBF = ; GW;S*BFRL*( 1.0 «• BFNP.L*BFNX) 

GWS =! GW.S - CBF 

~ . . AMBF = A'MEF ♦ CBF 

THGR = ARHF ♦ CBF 
IF! HSE .GT. THOR) HSE = THGR 

• AMSE = AMSE ♦ HS.E 

THSFI HOUR) = (THGR - HSE)*WCFS 
TDSF = TDSF ♦ THSFI HOUR ) 

C STORE SIMULATED HOURLY STREAM FLOWS 
C DRAINING OF UPPER ZONE STORAGE 
SINDEX= SI NDE X* l I 
THSFOI S INDEX 1 2 ) = THSF (HOUR ) 

306 UZI NFX= IUZS/UZC ) - ILZS/LZC) 

IFIUZINFX .LE. 0.0) GU TO 198 
LZSR = LZS/LZC 

UZINLZ = G.C03*MIR*UZC*UZ1NFX**3.0 

IFIUZINLZ .GT. UZS) UZINLZ = UZS 

UZS = UZS - UZINLZ - . - . 

LZRX = l . 5*ABS I LZ SR - 1.3) + l .0 

FMR = 1 1.0/11.0 ♦ L?RX) )**LZRX 

IFILZS .LT. LZC) FMR = 1.0 - FMR*LZSR 

PGW = I 1.0-FMR)*UZINLZ*I1.0 - SUBWF ) *FPER 

• PLZS = FMR*UZ I NLZ 
LZS = LZ.S ♦ PLZS 

GWS = GWS ♦ PGW • :••• 

BFNX =. BFNX + PGW 

C 4 PM ADJUSTMENTS OF VARIOUS VALUES 

198 IF ( HOUR .NE. 16) GO TO 202 
AEX90 = 0.9*t AEX90 ♦ PET) 

AEX96 = 0.96*1 AEX96 ♦ PET) 

C INFILTRATION CORRECTION 


ZER00267 
ZERP026R 
ZER00269 
ZER03273 
ZER00271 
ZERO 0272 
ZER00273 
ZFP002 74 
RAZER00275 
SZEP.Q0276 
ZER00277 
ZER00278 
ZER0027 0 
ZER002 80 
Z ER00281 
ZER00282 
ZER00283 
ZER00284 
ZFR002S5 
ZFRQ3286 
ZFR00287 
ZEK00283 
ZER002 89 
ZER00290 
ZER00291 
ZER00292 
ZER00293 
ZER00294 
ZER00295 
ZERP0296 
ZER00297 
ZER00298 
ZERD0299 
ZER0030) 
ZER00301 
. ZER00302 
ZER0030? 
ZER00304 
ZER00305 
ZER00306 
ZER00307 
ZERO 33 3 3 
ZER00399 
ZERO 33 10 
ZER033 1 l 
ZERn^U 
ZERO03 13 
ZERD0313 
ZER00315 
ZER03316 
ZER00317 
ZER033 18 

ZER033I9 

ZER00323 
ZER03321 
ZER,03322 
ZER0O323 
ZER00324 
• ZER00325 
ZER00326 
ZER0032 7 
ZER003 ?8 
ZER00329 
ZER03330 
ZERO 3331 
ZER00332 
ZER003 33 
ZER00334- 
ZEP00335 
ZFR03336 
ZER00337 
ZER00338 
ZERO 33 39 
ZER00340 
ZER00341 
ZERO 3 3 42 
ZER00343 
ZER00344 
ZERO0345 
ZER00346 
ZER00347 
ZER03348 
ZER00340 
ZER003 50 
ZER00351 
ZER00352 
ZER00353 
ZER003 54 
ZER00355 
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u 

: if 


r, & 

©I 


UBfte 


© 


r 


SIAM = <AeX96/AETX)**SIAC 
IF(SIAM .LT. 0,33! SUM = 0.33 
BFNX > 0.97*BFNX 
If (PET .E0, 0.0) GO TO 202 
EVAP-TRANS LOSS FROM GROUND WAT ER 
GWET = GhS*GWETF*PfcT *FPCR 
GW S = GWS - GWET 
BFNX = P.FNX - GWET ! 

IFIBFNX .IT. 0.0) BFNX = 0.0 
AM PET = AM PET ♦ PET > 

I F ( PET .GE. UZS) GO TO 
UZS = UZS PET 
AMNET = AMNETif PET 
GO TO 202 
PET = PET - UZS 
AMNET = AMNET ♦ UZS - 
UZS = 0.0 
LZSR = LZS/LZC 

IF ( PET .!GE . ETLF«LZSR) GO TO 200 


199 


199 


200 

201 


203 


SET =i PET* (1.0 — P ET / ( 2 • 0 *E T L F ♦LZSR ) 1 
GO TO 201 

SET =: 0.5*ETLF*LZ$ft 
LZS = LZS - SET 
AMNET 1 - AMNET + SET 
202 CONTINUE * ’ 

END OF HOUR LOOP 

DSSF(DAY) - TDSF/2A.0 

IF I CCNOPT (11) .EG- |l) DSSF(DAY) = DSSF(DAY) > DDIWCDAY) 
AMRTF ® AMRTF * DRSF1DAY) 

AMSTF = AM ST F ♦ D $ $ F ( DAY) 

1FICGN0PT (6) .EQ. F) EDLZST DAY ) = LZS ' 

STORE FfRORS AND FLOW DURATION r © 

IFICONOPT (4 ) *NE. 11 GO TO 204 
ERR OS S' Ft DAY) - DRSF (DAY) 

IFIDRSF(DAY) .LT. 1.0) KRFMl = 1.0 
IF (DRSF (DAY) .GT. 1.0) KRFMl = 2. 0* ALOG( DR SF ( DAY ) ) 

CRFMI (KRFMl ) * CKFMUKRFMI ) + 1.0 
SERR (KRFMl ) - SERR! KRFMl) + ERR 
SE RA ( KRFM I ) = SER A ( KRFMl ) 

SQER (KRFMl) = SUER (KRFMl) 

SESFI KRFMl) = 0.0 
IF ( CRFM I (KRFMl ) .GT. 1.0) 


♦ 2.0 


APS (ERR) 
FRR*ERR 


.'■SB’S Ft KRFM I ) = SORT (ABS ((SQER ( KRFMl ) - 


204 


10 


1 SERR(KRFMI)«*2/CRFM1 (KRFMl) )/(CRFMI (KRFMl ) 1.0)1] 

CONTINUE 
DATE-DAY 

IF { (MONTH, EQ .4) . AND . ( MD AY . EQ . 31 ) ) DATE -MODI DAY, MO AY ) 

IF { MONTH. NE .4 ) D ATc = M0D ( DAY? WAY ) 

WRITE (6,9) DATE? ( THSF ( HOUR ), HOUR- t ,12) 

) FORMAT ( 1H/ ?1X/ ? IX ? 14 ?2X?2HAM? I X»6F0. I ?3X? 6F8. 1) 

WRITE (6? 10) ( THSF( HOUR ) tHOUR- 13,24 )Y DSSF (DAY ) 

FORMAT ( 1HJ , 6X ,2HPM, 1 X, 6F8 • 1 , 3X , 7F8* 1 ) 

I F ( TDFP 24 .LT. 12.0) GO TO 205 

TDFP12 = TDFP 2 4 - 12.0 . i 

. FORMAT ( 1H/ rlOX, 8HMAX IMUM=t F8. 1 ,2X,6HC.F . S. , 5X,4HTIME , 3X,F5.2, 2X, 
1 4HP.M.) 

GO TO 206 

205 CONTINUE . i 

12 FORMAT (1H/,1 OX » 8HMAX IMUM= , F 8 . 1 ,2X , 6HC . F. S . , 5 X ,4HTIME, 3 X , F5. 2 , 2X, 

1 4HA.M.) 

206 I F ( CONOPT ( 7 ) .EQ. 1 .AND. SDEPTH .GT. 0.0) WRTTEI6, 13) DATE, 

1SDE P TH, STMD, SAX, TANS M, SPLW 

13 FORMAT ( 3X , l 4 , 2X , 7HSDFP TH= , F8. 2 ,2X , 5HSTMD= ,F6 .2,2X # 4HS AX= , F6 .2, 

I ?X,6HTANSM=,F6.2,2X,5HSPLW=,F6.2) .. 

MAX I = MAXI +• 1 

C MONTHLY SUMMARY STORAGE . . „ . . „ 

STMROSTMAXl ,2)=DSSH DAY) ' ’ r . .. .. . . . 


11 


ZERO 03 56 


. ^ • 

ZER003 57 



ZER00358 


i- . 

i 

ZCR003 59 


ZER00360 

ZCR00361 


r 

ZER00362 


j 

ZER00363 


• | •. 

ZER00364 



ZERO 03 65 


' i 

ZERO 03 66 


r- 

ZER00367 


f 

ZER0036B 


l 

ZEP00369 


. r 

ZFR003 70 


t."- 

ZER00371 f 



ZER003 72 i 


V ; ;l 

ZERO 03 73 


ZERO 03 74 


\ 

ZER00375 



ZER00376 


: ; ; ' •• • \ , 

ZERO 03 77 



ZERO 03 78 



ZERO 03 79 


1 

ZER003 80 


i 

ZER003 8 1 


i 

ZER00382 


} 

ZER 003 83 



ZERO 03 84 T 


;. 

ZER00385 !■ ' 


)" 

ZER00386 



ZER003 87 


j. 

ZER003 88 


■ . 1 

ZER 003 89 



ZER003 90 


! 

ZER 003 9 1 


J.: 

ZERO 03 92 



ZER 003 93 


. j 

ZER 003 94 



ZER 00319 5 



ZERD0396 


■■ I 

ZERO 0397 


i 

Z ER 0 0 393 



ZERO 03 99 


I 

ZERC0400 

- 

ZER 09401 


j 

ZER 0040 2 


ZER 004 9 3 



ZER00404 


• t 

ZER 004 05 


f 

ZER00406 


| 

ZER00407 



ZER 00408 


• 'i 

ZER00410 


.. •.] 

ZER004 it 


ZER004 12 



ZER 0*9000 


' ,1 

ZER00414 


•••• 3 

ZER0C4I5 


1 

ZEPC04 1 6 


.. 1 

ZER00417 



o 


TMSTFtMAXI ,2)=AMSTF 
AMSTF = 0.0 
TMRTF(MONTH) = AMRTF 
AMRTF = 0.0 
EMBFNXtMAXI ,2 UBFNX 
TMPREC ( MAXI ,2 ) = AMPRE C 
AMPREC = 0.0 
TMRPM ( M0N1 H ) - A MR PM 
AMRPM = 0.0 
TMBF(MAXI ,2)=AMHF 
AMBF = 0.0 ! 

TMIFTMAXl ,2)=AM1F 
AM I F = C.O 
TMSt ( MAXI ? 2 ) = AMSE 
AMSE = 0.0 

TMPET ( MONTH ) = AMPET 
.MPET = 0.0 
TMNfcT ( MONTH 1 = AMNET 
AMNET = 0.0 
TMSNE( MONTH) = AMSNE 
AMSNE =0.0 

TMFS IL ( MONTH ) = AMFSTL 
AMFSIL = 0.0 
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ZER0041R 
ZER0D4 19 
ZER00420 
ZER00421 
Z ER00422 
ZER00423 
ZER00424 
ZER0042E 
ZER00426 
2ER00427 
ZER00423 
ZER0042O 
ZFR00430 
ZER00431 
ZERO n 43? 
ZER00433 
ZER00434 
ZER00435 
ZER00436 
ZER00437 
ZER0043Q 
ZE R00439 
ZER00440 
ZEK00441 
ZER00442 
ZER00443 
ZER00444 
ZER00445 












■' y . 









■IN* 


220 


EM GH S (M AXT ♦ 2 ) - G VI S j 

UZC = SUZC*AEX90 V 3UZC*EXP ( -2 #7*LZS/ LZC I 

IMUZC • L T • 0.25,V UZC = 0.25 

FMUZC(MAXl f2)=UZC 

EMUZStMAXl f 2)=UZS 

EM SIAM ( M A X 1 « 2 ) ~S J AM 

EMLZS ( MAX l » 2 ) =L ZS ! 

C M 1 F S t M A XI » 2 ) = I PS 

continue 

IF (MDAY.EQ.337) MDAY=59 


C STORE MAXIMUM DAILYi STREAM FLOW FOR YEAR 
TFMAXY ( MAX l )=TFMAX 
3001 CONTINUE 

IE ( DAY* EQ . bOATb ) GO TO 221 
CALL, OA YNXT ( DAY f DPY) 
l F ID A Y • G T • L 0 A Y ) MOAY=LOAY * 

IF (CAY. EQ. 366) M0AY=337 

GO TO 152 

C END OF DAY LOOP 
221 CONTINUE 
RETURN 
END 


Z ERD0446 
ZER00447 
ZER0044R 
ZERD0449 
ZER00450 

ZER00451 
ZER004 5 Z 
ZER02453 
ZER0G454 
ZER00455 
ZER00456 
ZERU045 7 
ZER00458 
ZER094 59 
ZER00460 
ZER00461 
ZER00462 
ZCR00463 
ZER00464 
ZER00465 
ZER00466 
ZERU0467 
ZER00468 
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SUBROUTINE FOKCST ( PD AY , DATE S , MONTH , EL' AT C , MS BO I C , PDATE , LOAY , MPOAY J rCSTOOOl 
COMMON/ PLC)TC/OR SF , OS SF ,CONOPT',THSFD, TMSTT » STMROSI 121,6) ,DPY, TI TLE,rCST0002 


2KFLAG, I OF LAG, 

1 1 ENOFG, STUDY ( 2 ) » PEAKS, PHRS , NSPTS * T HSFDM , T FMAXD* TMRTF* JPLOT , 

2 NCTR I ,C|TR I , F I R R , R I CY , DP SC .RDDPSM , SPBFLW, SPTWCC ,SPM,El OIF, 

3 XDNFS , FFOR , FTS I , MRNSM,USMGH, PXCSA.RKPF , KGPMB, AREA , F IMP, 

A S ATR I , UHF A * 

BMNRD , 


FWTR , V I NTMR ,BUZC , SUZ C ,LZC > E TLF , SURWF , GWETF , SI AC, BMI P , 

B I VF »CF SS , OFSL , OFMN, OFMN I S * I FRC, CSR X , FSK X, CHCAP , CXQP V , 

BFNLR , B FRG *GW S , UZS * L Z S * B FNX , I FS , ti^H 0 C , RFRL , DFNRL , BFNHR , IF^RC, 

IFRL , LSHFT »NFTP. I , FNTR I , MXTR I ,NCS TR l , b TR I , I FCFS , FPAFT , FPGR , 

TPLR , V INTCR , HSE ,I;R TR I , SP I F.CBF ,S PD.< ,UFUS,OrUS I S ,.OFR,ni*R I S, PE I S , 

RHFO , URHF, AM IF , AV.lt T , ARP L T, AMSNE , A Yl- S 1 L , SA SFX. SARAX, SRX, VWIN, 

WCFS *RHF MG, SSRT , GFRF , OFRF PS , EQDF, FQDF I S , SO e RF» SOFRF l , 

SDEPTH, MULTI , 1 1>, A SM , .WT',AM , WT4PM , S AX ,T ANSM, SPTW, STMD, SFMD, ASMRG, 

XDEPEND I 2 ) , VAR IN ( ? ) , NPT S , JUI. 01 , I YK , TtIDAR Y I S ,11, 

YTOMAR.Y ( 7,1) ,TCSARY(3,6 ,11 ,T SO ARY (6,1 ) ,TSMARY( A, 1 1 , 

wtorary! i’fc' i } ,TSMCRY( 1 1 1 tsocry i n , tskaryi 1,6, n , 

CORSFI ( 3 6o;) JdsSfT ( 3.66 ) * M I , N I , MUL T , T MR TFT ( 12), TMSTFT 112) 

COMMON/ COMMA/ EM3FNX , EMGWS ,CM I F S » CM( ZS, E MS I AM , e’lUZC , F«UZ S , TMRF ,. _ _ _ 

1IM IF,TMPRpC, TMSE,CRF MI ,0DIW,UMNT ,OMXT ,ORGPM, DRHP, DRSGP, DP FT, FDLZS , FCST0023 

, SOfcR, THSF , TMFS I L, TMNET, TMOF, TMPET , TMRPM, TMSNE* FCST 0324 


C 

C 


2EPCM, SER A * S ERR * S ESF 

3TMSTFI ,T200FH,T20PRH,TMRTFI , JULUAT . 

4TFMAXY.UZC, A LT X , 0 AY , NSGRD , AtX90,SI AM, NUSDP, RGPM, NDSDR , YR1 , 
5TRHF: t • 

5SINDEX, INDfcX,AfcX96,MAXI , YR2 , BYLZS » BY IFS , BYUZS 
KENTUCKY WAT ERSFEO MODEL (VERSION OF JUNE 6, 1970) 

BASED ON STANFORD WATERSHED MODELS III C IV 
DIMENSION BTR I (99 ), CUN UPT ( 16 ) , CRFM I ( 22 ) , C TR I I 99 ) , DDI W ( 366) , 


i 


DMNT ( 366 it DM XT ( 366 J , DPSH 366) , DRGHM(366> , DftHP ( 366 , 74) 
DRSGP (3661 , DPbT ( 366 )■? DUSf( 366 ) , DSSf( 366 ) , FDLZS < 366 I , 
■EMBPNXC 15,3) ,EMG.*S( 15 t 3) ,b A if St 15* 3 J ,F M ZS < 16,3} .FMSt AM( 15, 31V 
EMUZC ( 15 1 3) ,F*UZS( 15,3) ,EPCM( 1? ) , FIRM ( 15 ) , MHDCYdZ ) ,'f>EOWYI 12 ) , 
RICY<37) , S ATR I ( 99 ) , SERA (22 ) , S ERK (22) , SESFT22). SQER(22>, 
THSF(24) JITtrilB) , TMBF< 15,2 ) , TMF S I L ( 1 2 ) , TM I F ( l5,3),TMNfT( 12) , 


PC ST 00 25 
FCST 002 6 
FCST 0027 
FCST0023 
FC ST 00 29 
FCST003T 
FCST0031 
FCST0032 
FCST0033 
FCST0034 
FC ST 00 3 5 
FCST 0036 
F GST 00 37 


TMOFt 15,3 ) ,TMPFT ( 12 ) , Tmpr L -C{ 15,3) ,TMRPM{ 12) , TMRTF ( 12) , T*SF( 15 , 3 ) , FCS T 0038 


j 


m 




!*l 


T MS NET 12) ,TMSTFM6,3) , TMSTF I ( 15 ,3 ) ,T200FH( 2 1 ) ,T2CPRH(2U , 
UHFAI99 ) , TMRTF l < 12 ) , JULDAT 1 6) ,THSFD< 744, 3 ) , TFMAXYI 366 ) , 

PEAKS (6) ,PHRS(6) ,NSPTS(6), 1HSFDMI6) 

LOGICAL LSHFT 

INTEGER CDSCR,CN,CONOPT,DATE, DAY, DP Y , F HSGO, HOUR , HRF ,HRL , PDAY, 
1 PRD, RHPD,RHPH,RSBD,SGMD,SGRT,SGRT?, YEAR ,YR1,YR2, PHRS, S INDEX 
INTEGER TUMARY.TSMAR Y, TOJARY, TSDARY .TOSARY, TSSARY 
INTFGER DATES, FUATt ,S I NDET , W PCAY (15) 

DIMENSION RPLOTCI l 832) .ftCOMMA ( 12087) 

EQUIVALENCE ( DPY , RPLOTC ( l ) ) ,(CRFM1 .RCOMMAIl) I 


REAL 

DATA 

DATA 

REAL 

REAL 

REAL 


IFPRC, 1FRC, IFRL,IFS,IZC,LZRX.,LZS,LZSR,MHSM,MNPD,MPNSM,NHPT 
MtDCY/ 0,... ___ 31, 69, 99,123, 151, lfll,PL2, 243, 273, 304, 334/ 


I 


■KM- 


■ 


■ lii 


C) 


MEDW Y/304, 3 34 1 365, 3 1,59, 90, 12 ), 15 1,181, 212, 243, 273 
MXDRSFt MXOS SF , MXMRSF , MXMSSr , SSQD 
S SQM, S SOD l , SSQ V I , VDRSF , VDSSF 

VMRSF , VMS SF , SOURSF, SDDSS F , SDMKSh , SPMSSF , SMDD, SMMD, SMSQD, 
^ SMSOM 

REAL MDR S F , MDS SF ♦ MM RSF , MMS SF 
BACKSPACE 11 

READ (LI) (RPLOTCCI ), 1 = 1,1832) 

BACKSPACE 18 

READ (18) (RCQMMA( I >,1=1,12087) 

150 CONTINUE 

■ DATE = PDAT b . - ■ ■■ ■. /, , ' ■■ , 

DAY- OATES 
MDAY*=PDAY 
SI NDEX-0 
MA X 1 = 0 
AMRPM = 0.0 
AMPR6C = 0.0 
AMBF = 0.0 
AMSE = 0.0 
AMSTF = 0.0 
AMKTF = 0.0 

IF (DPY .EQ. 3 t-. 

3 FORMAT ( 1HL, IX, •FORECAST 

W R I T E ( 6 , 3 ) MSPDIC 
C BEGIN DAY LOUP 
IMONTH=MONTH 
152 TDSF = C.O 

IF ( MONTH. NEi.4) GO TO 148 
IF (MOAY.NE. 31) GO TO 149 
148 IF ( DATF.GT. ( MOtX DAY ,MDAY ) ) I 
14Q CONTINUE 

PET=EPCMl I MONTH ) +DPET ( DAY ) 

PE TU = PET 
TF MAX = 0.0 

C EVAPOTR ANSP IR AT ION ADJUSTMENTS 

I F ( CONUPT ( 7 ) . NE. 1) GU TO 153 

- ,4.0*CLDIF .LT. 40.0) PET 

SPTWCC) PET = FFOR^PET 


MEDWY ( 5 )=366 

CASE HOURLY 


CFS VALUES*,//, IX, 4A4) 


IM0NTH=M0NTH+1 


IF COM X f l DA Y ) 

!F(SPTW .GT. 


, M 


Ilf 
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FC ST 0039 
FC ST 0040 
FC ST 00 41 
FCST0042 
FCS TOO 43 
FCST0044 
FCS TOO 45 
FCS TOO 4 6 
FCS TOO 4 7 
FCST0048 
FCS TOO 49 
FCST0050 
FCS TOO 51 
FCS TO 05 2 
FCSTC'^53 
FCST0054 
FCS TOO 55 
FCS TOO 56 
FCS TOO 57 
FCST005B 
FCS TOO 59 
FC ST 00 60 
FC ST 00 61 
FCST0062 
FCST0063 
FCS TOO 64 
FC ST 0065 
FCST0066 
FC ST 0067 
FCST0068 
FC ST 0069 
FCST0070 
FCST0071 
FCST0072 
FCST 0073 
FCSTOOOO 
FCST 0075 
FCST 0076 
FCST 0077 
FCST 0078 
FCST007^ 
FCST0080 
FCST 0001 
FCST0082 
FCS TOO 3 3 
FCST 00 84 
FCST 00 8 5 
FCST 0086 
FCST 00 87 
FCST003R 
FCST 0089 


FCST 0003 
FCS TOO 04 
FCST 0005 
FCST0006 
FCST 00 07 
FCSTOOOR 
FCS TOO 09 
FCST 00 10 
FCST 00 11 
FCS TOO! 2 
FCST 0013 
FCS TOO 14 
FCST 00 15 
FCS TOO 16 
FCST 0017 
FCST 00 18 
FCST0019 
FCSTOOPO 
FCS TOO 21 
FCS TOO 22 





m 


C CALCULATION OF SNOW EVAPORATION 

IF (DMNT (DAY ) .GT. 32.0 .OR. SPTW .LE. DPSE (DAY) ) GO TO 15 3 
SE = DPSb(OAY) 

AMSNE = AMSNE "♦ SE 
SPTW = SPTW - SE 

IFtSFHO .GT. 0.0) SDEPTH *i SDEPTH - SE/SFMD 

153 DO 202 HOUR ~ l»24 

IFC (NSGRD .EG. 0) .AND. (OR HP (DAY* HOUR ) .NE. 0.0) .AND. (PET •EO. 
i PETU ) .AND. ( CQNUP T ( 3 ) ;EU. D ) PET = 0.5*PET * 

154 IF ( HOUK .EQ. SORT v n RGPM = DROP M (DA Y ) 

I Ft HOUR .EQ. 9) HSE - ( FWTR*P FT ) /1 2 . 0 

IF (HOUR .EQ. 211 KSE = 0.0 
PRH = RGPM ♦OR HP ( DAY. HOUR) 

AM PR EC - AMPRbC * PRH 
C ENTER SNOWMELT SUBROUTINE 

IF ( CON OPT { 7 ) « tO • 1 I CALL SNOMEL ( BDDFSM , SPTWCC, SPM, FLDIF f DAY « 

1 SPOFLWt XDNFSt FFUR ♦ FFSI , MRNSM, DSMGH, SDEPTH, STMD, PXCSA,HOUR, 

2 SAX, SOFRF ,CFRF I S, SUFRF I t A 4F S IL , PRH, SPTW, TAN5M, SPLW, SF M0 , f FRF t 

3 WT4AMtWT4PMfASM, ASMRG, SASFX, SARAXtDMXr ,DMNT,RICYtFlRf<) 

155 AMR PM = AMR PM ♦ PRH 

156 TOFR ^ 0.0 
ARHF = 0.0 

C 15 MINUTE ACCOUNTING AND ROUTING LOOP 
.00 187 PRO = 1,4 
PE SI = o.lo _ v 

:PPI - 0.0 ' V: - ; ^ • • r *" •' •; * 7 • ; 7'- ' 7 

*OFR = 0.0 : - . 

OFRIS = 0.0 
HI = 0.0 

WEI FS = 0.0 r . . * 

PMEUZS = 0.0 ‘ ‘ 7 - . 

PMELZS = 0.0 
PMEIFS = 0.0 

PMEOFS = 0.0 , - . 

~ PEP - = 0.25*PRH I 

IF ( CONOPT ( 2 ) .EQ. L ) CALL PRCPRD(RGPM f DRHP, DAY, HOUR, DPY, PRO , PEP , 

' 1 .PRH) ' -- ' t ■: ■' • ' 

IF (PEP .GT. 0.0) GO TO 157 

IF (OFUS iGT« 0.0) GO TO 159 ", 

IF I l FS .GT . 0.01 GO TO 170 
IF (NRTR I .GT. 0) GO TO 172 

TRHF = 0*0 ■. ■* : ■' V • ' 

IF (RHFO . GT. 0.0) GO TO 181 * , ‘ 

: GO TO 1184 ■ 77 . v r 

C RAINFALL UPPER ZONE INTERACTION 

157 IF (PEP .Gfc. VINTCRT GO TO 158 , 

UZS - UZS 4- PEP*TPLR v..-.. 7 : 777 '/ * 

V I NT CR ~ V I NTCR - PEP 

PPI * 0.0 . . , . . . , 

PEBI = 0.0 • - ■ ' ■ ' '7 K 

PMEUZS = PEP . 

IF (OFUS .GT. 0.0) GO TO 159 
GO TO 170 

158 PPI * PEP VI NTCR ’ v 7 “ . 

UZS = UZS >! VTNTCR*TPLR . ♦ r . . .. , . 

VI NTCR = 0.0 

LZSR = LZS/LZC v 

UZC - SUZC*AEX90 ♦ BUZC*EXP (- ? .7*1 ZSR ) v r ' 

IF ( UZC .LT. 0.25) UZC = 0.25 . 7. 7 

UZRX - 2.0*ABS ( UZS/U ZC - t.O) + 1.0 

FMR = (1.0/( i.0 + UZRX) )»*UZPX - ^ , 

IF (UZS .GT • UZC) FMR = 1.0 - FMR ” 

PEBI = PPT^FMR . . .. \ •. . ..-::;/*.L7 

PMEUZS = PEP - PEBI 
UZS = UZS 4- PPI - PEBI 

C LOWER ZONE AND GROUNDWATER INFILTRATION ’ " 

159 LZSR = LZS/LZC . .. . 7 . 

EID - 4 • O^LZSR 

IF (LZSR .LE. 1.3) GO TO 160 7 , 7.7; 

EID = 4.0 ♦ 2.0^ (LZSR - 1.0) . ’ ’ -*r v 7 ^ ■ ' v " 

IF (LZSR .LE. 2.0) GO TO 160 : w • . . 

■ El 0 = 6.0 ; 7 . ; . -:,7 ---- 

160 PEBI = PEBI > OFUS 

CM IR = 0 . 25*S I AM^BM T P / ( 2.0**EIT!) -V— 

CIVM - BI VF*2.0**LZSR . .7, 

IFICIVM .IT. 1.0:) CIVM .» 1.0 
PEAT = PE B l ♦PEG l / ( 2 • D*CM l R*C I VM) 

Wt = P F B I ♦ P E B I / ( 2 • 0 ^ C»M I R ) 

IF ( PEBI .GE. CM I R ) WI = PEBI - 0.5*CMIR , " . 

I FI PEB I .GE. CMIK^CI VM) PEA1 = PEBI - 0 . 5^CM I R«C I VM 

WEIFS = WI ~ PL A 1 

IE ( PEB I .LE. OFUS ) GO TO 161 

PMELZS = (PEBI - WtJWdPEBi - 0FUS)/PEBI) 

PMEIFS = WcrFS^iiPEBI - OFUS)/PLBI) 

PMEOFS = PEAdUPEBl - OFUSJ/PEBI) 

161 CONTINUE 

IF ( (PE A! - OFUS) .GT. 0.0) GO TO 162 
£00 * (OFUS ♦ PEA I ) / 2*0 


GO TO 163 
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(.0 TO 


162 EOD - EODF*( ( PE AI - OFUS)**0.6) 

163 IF ( ( OF US . .*•! PEAI ) .GT. <2.G*E0r))> EOI) = 0.5*(0FUS ♦ PEA!) 
IFUOFUS * PEAI) .LE. 0.001) GO TO 169 

OFR = d.25*OFRF*( I (OPUS ♦ PEAI )*0.5>**1.67)*l tl.O ♦ 0.6*(I0FUS 
1 PEAI )/(2.0*EQ0) )**3.0)**1.67) 

IFIOFR .GT. ( 0. 75*PF. AT ) ) OFR = 0.75*PEM 
166 IF I F IMP .GO. 0.0) GO TO 168 

165 PEIS = PPI ♦ OFUSIS 

IF { (PEIS - OFUSIS) ,GT. 0*0) (.0 TO 166 
EQDIS = (OFUSIS ♦ PE IS 1/2*0 j 
GO TO 167 1 

166 EQCIS = F.OOF I S* ( ( PF l S - OFUSI S )**0.6I 

167 IF ( ( OFUSI S + PEIS) .GT. I 2.0*EQ0IS ) > EOOIS = 0.5*(OFUSIS < 

IF! (OFUSIS + PEIS) .LG. 0.01) GO TO 163 

OFR I S = 0.25*OFRFIS*(I (OFUSIS + PE I S I *0.5 1**1 .67 )*I 1 1. 0 ♦ 

1 JOFUSIS ♦ PEI S ) / ( 2 . 0*EQOFI S ) ) **3.0) **1.67) 

IF (OFR I S .GT. PEIS) DERIS - PEIS 

168 TOFR = TOFK + FPER*OFR ♦ F1MP*0FRIS PPI*FWTR 
UFUSIS = PEIS - OFRIS 
OFUS = PEA I - OFR 
IF (OFUS .GE. 0.001) GO TO 169 
LZS = LZS ♦ OFUS 

OFUS = 0.0 ' r •• •• 

OFRIS = OFRIS * OFUSIS 
OFUSIS = 0.0 

169 LZRX = 1 . 5*AB$ ( LZS/L ZC - 1.0) ♦ 1.0 
FMR = (1.0/ (1.0 ♦ LZRX) 1**1. ZRX 
IFILZS .LT. LZC ) FMR = 1.0 - FMR* ( LZS/LZC > 


PEIS) 

0 , 6 * 1 ( 


FIMP*OFRIS 


IFILZS .LT. LZC) FMR = 1.0 - FMR* ( LZS/LZC ) 

PLZS = FMR*( PEB I - WI) 

PGM = (1.0 —FMR ) * (PE Bl - Ml )*( 1.0 - SUBWF)*FP£R 
GMS = GWS * PGW 
BE NX = BFNX * PGW ! 

LZS = LZS + PLZS 
1FS = IFS «- weiFS*F?ER 

170 SPIF = IFRL*IFS 
AM IF = AM IF ♦ SPIF 

IFS = IFS - SPIF . 

IF ( IFS .GE. 0.0001) GO TO 171 
LZS = LZS ♦ IFS 
IFS = 0.0 

171 UHFAIl) = FPER*OFR ♦ PPI*FWTR «• FIMP*OFRIS • 
SPUR =UHFA(1) 

ROUT I NC- - 

172 IF (CONOPTI 12) .NE. 1 ) GO TO 173 
URHF , = URHF + 0 .2 5*UHF Alt) 

IF (PRO .NE. 9) GO TO 181 
UHFAIl) = URHF 

173 TRHF = 0.0 
KTKI — NCTR 1 

IF (CCNOPT ( 13 ) .EQ. 1) KTRI > NCSTRI 

174 URHF = UHFA (KTRI) 

IF (URHF .LE* 0.0) GO TO 176 

175 TRHF = TKHF f URHF*CTR I (KTRI ) 

IF ( CONOPT ( 13) .60. 1 .AND. LSHFT .AND. KTRI 

l URHF*SA1KI(KTRI - l) 

UHFA ( KTR I ♦ 1) = URHF . 

GO TO 177 j ' ' ^’7. 

176 UHF A ( KTRI+ l I = 0.0 

177 KTRI = KTKI - 1 
IFtKTRl .GE. 1) GO TO 174 

178 I F ( URHF .LE. 0.0) GO TO 170 . 

NRTRI = NCTR I >. 

IF (CONOPTI 13) .EQ. I) NRTRI r MXTR I 

179 NRTRI = NRTRI - 1 . , 


TRHF = 


IF (CONOPT 113) • EQ. 
.179 NRTRI = NRTRI - 1 

'UHFA in “ 0.0 
IF (CONOPT (13) .NE. 
NNSTRl = NCSTRI + l 
UHF A (NNSTK I ) - 0.0 

180 URHF = 0.0 

181 IF ( SRX .LE. CSRX ) 5 
RHFi =* TRHF - $RX*< 
RHFO ^ RHFI 

IF (RHFO .LT. RHFMC) 


MXTR I 


GO TO 180 


FCST 01 79 
FCST0180 
FCST 01 81 
FCST0192 
F GST-018.3' 
FCSTOl 84 
FC ST 01 85 
FC ST 01 86 
FCST 01 87 
F GST 0138 
FCST0189 
FCST0199 
FCST0191 
FCST 01 92 
FC ST 0193 
FCST0194 
FCST 0,1 95 
FCST0196 
FCST0197, 
FC ST 01 9 8 
FCSTOT 90 
FCST 020d 
FCST 0201 
FCST 020? 
FCST 0203 
FCST 02 04 
FCST0205 
FCST 0206 
FCST 0207 
FCSI020G1 
FCST0;209 
FCST 0210 
FCST 0211! 
FCST 0212 
FCST 0213 
FCST 02 14 
FCST 02 15 
FCST02I6 
FCST 02 1 7 
FCST 0218 
FCST02L9 
FCST 0220 
FCST 0221 
FCST 0222 
FCST 02 23 
FCST 0224 
FCST0225 
FC S T 02 26 
FCST0227 
FCST0228 
FCST 02 29 
FCST0230 
FCST 0231 
FCST 0232 
FCSTQ233 
FCSTQ234 
FCSTQ 2 35 
FCST 02 36 
FCST 02 37 
FCST 0238 
FCS T 0239 
FCST 02 40 
FCST 0241. 
FCST Q? 42 
FCST0243 
FCST0244 
FCST 02 4 5 
FCST0246 
FCST 02 47 
FCST0248 
FCST 0? 49 
F CSTO250 
FCS T O?. 5 1 
FCST 02 5? 
FCST 0253 
FCST 02 54 


181 IF (SRX .LE. CSRX) SRX = CSRX ^ v* . . FCST0248 

RHFi = TRHF - SRX^dKHF - RHFO) FCST0249 

RHFO = RHFI / . - , , _ , FCSTO250 

IF ( RHFO .LT. RHFMC) RHFO = 0.0 ' 7 F CST0251 

TFCFS = (4.0*RHF1 ♦ CBF - HSE) *WCFS. * .. . . . FCST 025? 

IF ( CCNOPT ( 13 ) .NE • 1) GO TO 182 FCST0253 

1 F ( CCNOPT (12 ) .EQ.; 1 .AND. PR D .NE. 4) GOTO 182 FCST0254 

CALL RT VARY (CTRI f SATR I ♦ 8 TR I ♦ CHCAP , iNBTR I f MXTR I ♦ NCSTRI , EXQPV , LSHFT » FCST0255 
l TFCFS) ~ . . _ • FCST 02 56 

DATE - MOD ( DAY 9 MD AY ) , FCST0257 

IF ( l SHF T ) WRlTE( 6 f 6 ) DATE, HOUR, PRDfNCSTRI FCST 02 5 8 

• 6 FORMAT (2X f i 2 , 2 X, 1 2 *2X, l 2, 2X , 2 0HHI STOGRAM CHANGES TOtlX, I2»IXt FCST0259 

1 8 HELEMENTS) * .. . FCST 02 60 

ttt2 CONTINUE FCS TO 2 61 

IF (TFCFS .LE • 0.5*CHCAP) SRX = CSRX FCST0262 

IF ( ( TFCFS .GT. O.S^CHCAP) .AND. (TFCFS .LT. 2.0^CHCAPI) SRX . « CSRXFCST0263 
1 MFSRX - CSRX^IITFCFS - 0.5*CHCAP)/(i.5«CHCAP)i^3 FCST0264 

IF ( TFCFS .GT • 2 . 0 *CHCAP| SRX - FSKX FCST0265 

I Ft TFCFS .LE. TFMAX) GO TO 103 ^ FCST 02 66 

PROF * PRO ^ ^ ? ’ FCST 0267 
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TDFP24 -HOUR 

I F < PRO .Lb . 3) TDFP24 - 1T0FP24 - i.O) ♦ 0.15*PRDF 
TFMAX « TFCFS 

183 ARHF = ARHF ♦ RHF 1 

C STORM OUTPUT REQUESTED BY CONOPT(l) 

184 I F < CCNOPT ( i ) .NE. 1) GO TO 186 
IF (DAY .NF. CDSDR) CO TO 186 

IF (HOUR .80* i .ANiY. PRO .FG. 1) WRfTE(6,7) 

7 FORM AT ( 1 H / /V2 1 X » 1 9HR A I NF AL L DEPOSITION* 12X.16HMPISTURE STORAGE, 

1 14Xt 1 7HSTREAMFLOW OKI GIN, 6X , L4HSTKE AM OUTFLOW/ ?X, 1 1 6 HOY HR PU P 
< 21 N EUZS ELZS EIES EOFS t!2S LZS IFS OFS 

3POF SPIF SPBF SPTP INCHES CFS) 

DATE - PUD ( DAY , MO AY I > 

OFS — OFUS*FPER ■'* OF US I S»FHP 
SPOT ~ C1FR*FPEF ♦ OFRIS*FIMP ♦ PPl*PWTR 
SPBF - ■ b.25*CGBFrH5El 
SPTF = SPDR ♦ SPBF 
.SPUR = C.O 

IF ( RHFO .LE. 0.0) TFCFS = (CBF - HSE)*WCFS 
" RSPTF ^ 0.25*TFCFS/WCFS . : , 

WRITE! 6 , B ) DATE, HOUR ♦ PRO* PEP ? PMEUZ S ? PMELZ S, PMETFS ,PMEOFS*UZSfLZS 
1. I PS , OFS, SPOFf SPIF, SPBF. SPTF, RSPTF, TFCFS 

8 FORMAT (2X, I 2 , IX, 1 2* l X, 1 1, 5( 1X,F6.4> «2X*4I F7.4) ,2Xt 5(lX f F6.4l * IXt 

1 F7.1) 

IF ( HOUR . EO • 24 .AND. PRD .EQ. 4) GO TO 185 
GO TO 186 

185 NDSDP « NDSDP ♦ 1 

IFiNDSDR .EQ. NOSOP) GO TO 186 
CALL OAYNXTl CDSDR , OP Y) 

186 CONTINUE; 

IF ( V I NTCR .LT . 0.25*VINTMR) VINTCR = VINTCR ♦ DPETC DAY 1/96. 0 

187 CONTINUE 

C END OF 15 MINUTE LOOP 

I F < CONOPT ( 5 ) .NE. i) GO TO 197 


HOURLY OVERLAND FLOW AND RAINFALL SORTING 
IF ( TOFR .LE. 0.01 GO TO 193 
KT20 - 20 

188 IFCKT20.LT. 1) GO TO 192 

IF (TOFR .GT* T200FH(KT20n GO TO 109 
GO TO 190 

189 T200FH ( KT20> i ) - T20CFM(KT20) 

‘ GO TO 191 , 

190 T200FHI KT20+1 ) = TOFR 
GO TO 193 

191 KT 20 4' KT20 - 1 
GO TO 188 

192 T200FH( 1) = TOFR 

193 IF ( P R H .Lb. 0.0) GO TO 197 
KT 20 - 20 

194 I F ( KT 20 .LT. 1) GO TO 196 

1 F ( PRH .GT. T20PRH (KT20 ) ) GO TO 195 
T20PRH ( KT2 0 + 1) = PRH 
GO TO 197 

195 T 2 OP R H ( K T 2 0 ♦ 1 ) = T20PRHCKT20) 

KT20 - KT20 - l 

GO TO 194 

196 T20PRH ( 1 ) = PRH 
ADDING GROUNDWATER FLOW 

197 CBF = GWS*SFRL*(1.0 > BFNRL*BFNX) 

GWS = GWS - CBF 

AMBF - AMBF ♦ CBF 
THGR - ARHF ♦ C3F ; 

I F ( HSE .GT. THGR 1 HSE » THGR 
AMSE = AMS E ♦ HSE j 
THSF ( HOUR ) (THGR — HSE)*WCFS 
TOSF = TDSF < 


THSF ( HOUR ) 


STORE SIMULATED HOURLY STREAM FLOWS 
DRAINING OF UPPER ZONE STORAGE 
SINDEX=SINDEX*1 
THSFD( S INDEX, 3) =THSF (HOUR) 

)6 OZ I NFX= ( UZ S/UZC ) - (LZS/LZC) 

IF(UZINFX .LE. 0.0) GO TO L9B 
LZSR = LZS/LZC 

UZINLZ = 0 • 0 0 3 * B M I R * U Z C *U Z I N F X * * 3 . 0 
IF ( UZ INLZ .GT. UZS) UZINLZ = UZS 
UZS = UZS - UZINLZ 
LZRX = l * 5*AB S ( LZ SR - 1.0) > 1.0 
FMR = <1.0/ (1.0 ♦ LZRX) )**LZRX 
IF ( LZSj .LT . ILZC ) FMR = 1.0 - F MR*L Z SR 
• PGW * < l.O-FMR J*UZINLZ*( 1.0 - SUBWF)*FPER 
PLZS = FMR ♦UZINLZ 
LZS = LZS ♦ PLZS 
GWS = GWS ♦PGW 
BFNX = BFNX ♦ PGW 
4 PM ADJUSTMENTS OF VARIOUS VALUES 
190 IF (HOUR .NE. 16) GO TO 20 2 
AEX90 = 0. 9* ( AEX90 ♦ PET) 

AEX96 = G.96*( AEX96 ♦ PET) 


FCST026B 

FCST 02 69 

PCS TO? 70 
PC ST 0?7] 
PCST0272 
PCST02 73 
FCSTO? 7^ 
PC ST 02 75 
FCST 0? 76 
AFCST 0277 
SFCSTC? 78 
FCST 02 70 
FCSTO? 83 
PCS T02 3 1 
FCST 028? 
FCST 02 83 
FCST 02 R4 
FCST 02 35 
FCST02B6 
FCST 02(3 7 
FCST 0? 33 
FCST 0?R9 
FCST 02 9 J 
FCST 02 9 l 
FCST 02 92 
FCST 0293 
FCST 0294 
FCST 0? P 5 
FCST02 p6 
FCST 0? p 7 
FCST 02 9Q 
FCST02P9 
FCST03 00 
FCST0301 
PC ST 030? 
FCST 0303 
FCST 03 04 
FCST 0305 
FCST 03 06 
FCST0307 
FCST0303 
FCST 03 09 
FCST 03 10 
FCST 0311 
FCST 03 12 
FCST03 l 3 
FCST 0314 
FCST 03 15 
FCST 0316 
FCST 03 17 
FCST 03 18 
FCST 03 19 
FCST 03 20 
FCST 03 21 
FCST0322 
FCST 03 23 
FCST 03 24 
FCST0325 
PC ST 03 2 6 
FCST 0327 
FCST Q328 
FCST0329 
FCST0330 
FCST 03 31 
FCST033? 
FCST 0333 
FCST 03 34 
FCST 03 35 
FCST0336 
FCST 03 1 7 
FCST 0338 
FCST 03 
FCST 0340 
FCST 0341 
FCST 034? 
FCST 03 43 
FCST0344 
FCST 03 45 
FCST0346 
FCST0347 
FCST 0348 
FCST0349 
FCST 03 50 
FCST 0351 
FCST 0352 
FCST 03 53 
PCS T035^» 
FCST0355 
FCST 03 56 


B-23 


199 


200 

201 


INFILTRATION CORRECT ION • 

SI AH = ( AEX96/AETX)**SIAC • 

IF I SIAM .LT. 0.33) SIAM = 0.33 
BFNX = 0.97*8FNX 
IFIP6T .EQ . 0.0) GO TO 202 
EVAP-TRANS LOSS FROM GRCUNDKATEP. 

GWET = GWS*Gv»ETF*PET*FP6R . 

GMS = GWS - GWFT 

BFNX = 6FNX - GWET • . 

IFIBFNX .LT. 0.0) HFNX = 0.0 
AMPET = AMPET ♦ PET 
IF ( PET .Gfc. UZSIl GO TO 199 
UZS = UZS - PET 
AMNET = AMNET + PET 
GO TO 202 
PET - PET - UZS 
AMNET = AMNET ♦ UZS 
UZS = 0.0 
LZSR t= LZS/LZC 

IFIPET .GE. ETLF*LZSR) GO TO 200 
SET = PET* 1 1 .0 - PE T / ( 2 .0*ETL F*L ZSR ) ) 

GO TO 201 

SET = 0. 5*ETLF*LZSR 
LZS = LZS - SET 
AMNET = AMNET «• SET 

202 CONTINUE 
C END OF HOUR LOOP 

OSSFIOAY) = TDSF/24. 0 

IFCCQN'JPTIll) .EO. 1) DSSFIOAY) = USSFIDAV) + DDIWIOAY) 

203 AMRTF = A*-'KTF + DRSF (DAY) 

AMSTF = AMSTF ♦ OSSF(DAY) 

IF I CONOPT ( 6 1 .EO. 1) EQ.LZSI DAY ) * LZS 

C STORE ERRORS and FLOW .DURATION 

IF (CONOPT (4) .NE. 1) GO TO 2C4 
ERR - OSSFIDAY) - ORSF ( DAY ) 

IFIORSF(OAY) .LT. 1.0) KRFMI =1.0 

IFIORSF(DAY) .GT. 1.0) KRFMI = 2.0* ALOGI ORSF. ( DAY I ) ♦ 2.0 
CRFKIKRFHl) = CRFMI (KRFMI) ♦ 1.0 
SERRIKRFMl ) = SE.RRlKRf.MI ), + ERR 
SERA(KRFMI) = SERA (KRFMI ) + ABS(FRR) 

SO ER (KRFMI ) = SQERIKRFMI ) + ERR* ERR 
SESF ( KRFM I ) = 0.0 

IFICRFMI (KRFMI ) .GT. 1.0) SESF (KRFMI I . _ . 

I SERRIKRFMl » **2/CRFMl I KRFMI ) ) /( CRFMI I KRFM l I - 

204 CONTINUE 
DATE = D\Y 

IF ((MONTH. EQ .4) . AND . < MDAY.EQ . 31 ) ) DATE = HOD 1 0 AY , MDAY) 

IF (MONTH. NE. 4) OATE=MOD(OAY, MDAY) 

WRITE ( 6,9) DATE, ( THSF ( HOUR ) , HCUR=1 , 12 ) 

9 FORMAT ( III/, IX/, IX, T4,2X,2HAM, l X, 6F 8 . t,3X , 6F 8 . 1 ) 

WRITE ( 6, 10 ) ( THSF(HUUR) ,HOUR= 13,24 ) , OSSFIDAY) 

10 FORMAT ( LHJ , 6X. 2HPM, 1X.6F9. I ,3X ,7F3. 1) 

IFIT0FP24 .LT. 12.0) GOTO 205 

■: TDFP12 = T0FP24 - 12.0 

11 FORMAT (1H/, 10X, 8HMAX IMUM= , F 3. 1 ,2X,6HC.F.S.» 5X ,4HT I ME , 3X.F5. 2»2X» 

1 4HP.M. ) i 

GO TO 206 

205 CONTINUE j 

12 FORMAT! 1H/ ,10X, 8HMAX IMUM= ,F 8 . 1 ,2X , 6MC.F . S . , 5X , 4HT I ME V3X , F5. 2 ,2X , 

l 4 HA. Mi ) i 

4033 FORMAT ( IX , 5H0FUS= , F7 . 3 » IX , 6HNR TR 1= , F7 . 3 , 1 X , 5HRHF0=, F7. 3) 

206 IF (CONOPT ( 7 ) .EO. 1 .AND. SDEPTH .GT. 0.0) WRITE (6* 13) DATE * 

1 SOEP TH , STMD , SAX , TANS M , S PLW 

13 FORMAT (3X, 1 4 , 2X , 7HS0 tPTH= , F,3 . 2 , 2X , 5HS TMO= ,F6. 2, 2 X.4HSA X= , F6 . 2, 

1 2X, 6HTANSM= » F6. 2 , 2 X, 5HSPLW= , F6. 2 ) 

MAXI =MAXI + l 

MPDAY ( MAX 1 ) = DATE I 

C MONTHLY SUMMARY STORAGE i ! 

STMROS I HAXI , 3 ) = DSSF ( DAY )' 

TMSTF (MAXI ,3) =AMSTF 
AMSTF = 0.0 
TMKTF(MONTH) = AMRTF 
AMRTF = 0.0 
EMBFNXIHAXI ,3:) = BFNX 
TMPREC ( MAX 1 , 3 ) =AMPREC 
AMPREC =0.0 
TMRPM(MCNTH) = AMRPM 
AslRPlT = 0.0 
TtftfP ! MAX 1 , 3 ) =AMBF 
AM Bf = C.O 
TMIFIMAXI ,3)=AMIF 
AM IF = C.O 
TMSE(MAX 1,3 ) = AMS E 
AMSE = 0.0 

= AMPET • 


SORT! ABS( (SQERIKRFMI ) 

1 . 0 ) 1 ) 


TMPET I MONTH ) 
AMPET = 0.0 
TMNETI MONTH) 
AMNET = 0.0 
TMSNE ( MCNTH) 


= AMNcT 
= AMSNE 


FCST0357 
FCST0353 
FCST0359 
FCST 03pO 
FCST 0361 
FCST03.I62 
FCSTC363 
FCST0364 
FCST 0365 
FCST 03 66 
FCST 0367 
FCST0368 
FCST 0369 
FCST 9370 
FC5T037) 
FCST 037? 
FCST0373 
FCST 0374 
FCST0375 
FCST 03 76 
FCST 03 77 
FCST 0378 
FCST 0379 
FCST 03 90 
FCST 0381 
FCST0382 
FCST 03 93 
FCST 03 84 
’ FCST 03 85 
FCST 03 86 i 
FCST03.87 j 
FCST 0388 
FCST0389 
FCST 0390 
FCST 0391 
FCST0392 
FCST 0393 
FCST0394 
FCST0395 
FCST 0396 
FCST 0397 
FCST0398 
FCST 0399 
FCST0400 
FCST0401 
FCST043? 
FCST0403 
FCST 0404 : 
FCST0405 , 
FCST0406 
FCST 040 7 
FCST 04 03 j 
FCST04 39 
FCS T 04 10 
FCST 0412 
FCST3413 
FCST04 14 
FCSTOOOO 
FCST0416 
FCST0417 
FCST 04 19 
FCST0420 
FCST0421 
FCST0422 
FCST0423 
FCST0424 
FCST0425 
FC5T0426 
FCST 0427 
FCST0428 
FCST 0429 
FCST0430 
FCST 0431 
FCST 0432 
FCST043? 
FCST 0434 
FCST0435 
FCST 0436 
FCST0437 
FCST 04 3 8 
FCST 0439 
FCST 04 40 
FCST 3441 
FCSTO 44 ? 
FCST 0443 
FCST 0444 
FCST 04 45 
FCST 0446 
FCST0447 
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fl 


220 


! l -i 


AMSNE * 0.0 

TMFS IK MONTH) = AMFSIL 
AMFSIL = 0.0 f . 

EMGWS (MAX 1 t 3 ) =GW$ 

UZC = SUZC*AEX90 ♦ RUZC^EXP (~2 .7*LZS/ LZC) 

IFtUZC .LT. 0.25) UZC = 0.25 

EMUZCI MAX I »3 ) =UZC 

EMUZS ( MAX l • 3 ) = UZ S 

EM S I AM (MAXI. 31 * S 1 AM 

EM L Z S ( M A X I » 3 ) f=L Z S 

EMU F SI MAX I » 31= ITS 

CONTINUF 

IF (MDAY. EQ.337) MDAY- 59 




C STUPE MAXIMUM DAILY STREAM FLOW FDR YEAR 
TF MAXY (MAXI ) = TFMA X ] 

3001 CONTINUE 

IF ( DAY . EO • bDATE ) GO TO 3002 
CALL OAYNXT ( CAYt DPY ) 

IF (DAY *GT .LCAY ) MOA Y=L DAY 
IF (DAY. FO. 366) MDAY=337 
GO TO 152 i 

3002 IF ( CON OPT ( 1 6 ) • E0» 0 ) GO TO 221 
BACKSPACE 11 

WRITE (II) : ( RPLOTC I I ) % I =1 * 1 332 ) 
BACKSPACE 18 

WRITE (18) ( R COMM A (1 1 1 1 -It 12087) 

C END OF DAY LOOP 

221 CONTINUE . v 

RETURN : 

ENO ... 


FCST044R 
FCST0449 
FCST0450 
FCST0451 
FCST0452 
FCST0453 
FC ST 04 54 
FCST04 55 
FCST0456 
FCST0457 
FCST0458 
FC ST 04 59 
FCST0460 
FCST0461 
FCST0462 
FCST0463 
FCST0464 
FCST04G5 
FCST0466 
FC ST 0467 
FCST346R 
FC ST 04 69 
FCST0470 
FCST0471 
FC ST 04 72 
FC ST 0473 
FC ST 04 74 
FCSTD475 
FC ST 04 76 
FCST047 7 
FCST0473 



SUBROUT INE P ASTRN ( POAY * G'A-TG'S , MONTH? EUAT f! , MSBO t C ? POA1 E , LOAY , MPOAYt 
COMMON/ PL OTC/OPSF , DS SF CONOR T 9 THSFD, TMSTF # ST MRUS I 12 1 , 6 ) , DP Y, TI TLE, 
2KFL AG * I CF L AG * ( 

1 IENOFG, STUDY ( 2 ) ♦ PEAK S f PHRS * NSPTS* THSFDMt TFMA XOt TMRTF, J PLOTt 1 

2 NCTRli, CTR l f F l ?.R , ft 1 CY , OPSL ,'BODF $m , SP rtfl W * SPTWCC , SPM t fLC I F , 

3 XDNFS f FFGRt FFS.l t. > 4 RNS M >DSMGH r PXCSA ,RMPF , RGPMB, AREA ? F ] MP , 

A SATRI t UHFAt 

BMNRO, 


A 

5 

6 

7 

8 
9 
A 
B 


C 

C 


F WTR » V I NT MR ♦ BU ZC , S UZC , LZG , C T LF ,• SUB.W-T f GWE TF , S I AC ,*BM I P , 

B I V F , Q F S $ , C F S L j U p ^ N , U F MN I S , I FRC, CSRX , V SP X , C HCAP , F XQP V , 

BFNLRtBFRC ,Gfc$,UZS ,LZS,8FNX, IP'S * BFMR C , BFRL t H'F’NRL, BFMHP , IFPRC, 

I FRL , LSHFT , NBTftl » FNTR I ,MX XH t *NCS TR l , B TR I , TP’CFS, FPAET , FPRR, 

TP LR * V I NT CR ,H$C , « I , S P I F , C L\P , SP DR , U FtJS , Of US l S , OF P , Of R I S, PFIS, 

RF< F 0 » UR H F » A Y 1 F , A v \ E T , AMP E T , AMSNE , AMF S I L » SA SF X, SAW AX * S*X, VW IN , 
WCFSVRHFMC f SSRT f ^FRF f O c RF I S , EUOF, EQDF I S , SOFRF f SOF.RFI , 

SOEPTH t MULT1 1 ID, ASM,.nT4AM f WTAPM, SAXfTANSM, S P 1 W , S T M D ,S F M D , A S M R G t 
X0EPEN0K2 ) , VAR IN (2 ) , NPTS f JULJl t I YR, THDARY ( 5 » 1 1 , 

YTOKARYC 7,1) ,TOSARY(5 ,6,1) ,TSl v AR.Y( 6,1) ,TSM ARY <3*1 ) , 

ZTS S A« Y ( 3 , 6 , 1 > , T $ MC s Y ( U , TSDCR Y ( l ) , T SR AR Y U , 6 , il , 

WTORARY ( 1,6, i I , 

CORSFT ( 36c? ) f OSSET (266) ,M l *NI , MULT ,TMRTFT.( 12) ,TMSTFT< 121 
COMMON/ COMMA/ ERBr\X,’FYGWS, EMI F S , EML Z S , EMS I AM, EMUZC , EMUZS , T*B F, 
iTMIFf TMPRFCfTMSEf CRr.V.I f Dl) U f DMNT f DMXT . DR GPM, DRHP , DRSGP t DPET , EDLZS» 
2 EPCM,SERA f SERRfSESF fi SOER , IMS Ft. IMPS l L , TM.NET * TMOF, TMPET *.TMRPMr TMSNE? 
3TMSTFI , T2CQFH, T Z 3P-H ,T MRTF I , JULDAT, 

4TFM AXY , UZC , A ET X , D AY , NSGRO , AbX^O, S l AM, MDSnP »RGPM t NOSDR ? YR L , 

5TRHF, 

5S I NDEX, INDEX, AE X96 f MAX! ♦ YR2 1 8 YLZS t B YI FS , BYUZS 
KENTUCKY WATERSHED MOOsL ( VERS ION OF JUNE 6, 1970) 

BASED CU S TAnFQRJ WATERSHED MODELS III E IV 
DI MENSION BTR I ( 9° ) , C ONOPT ( 1 S ) ? CRfM I ( 22 ) ,CTRI ( 99 ) , DD1 W( 366 ) , 


1 DMNT ( 366 ) , DMXT ( 366 ) f OPSF ( 3 661, DRGPM (366 ) , PRHP ( ? 66 f 24 > , 

2 DRSGP < 366 ) 1 t)PrM3c6), DRSF<366), 0SS c (36o), EDLZS(366) f 

3 EPBFNX <15,31, E M > WS ( L5 , 3 ) , C A I F S ( I 5 , ^ , E Z S ( L 5 , 3 I ,EMS1AM ( t$-, 3) , 

4 E MUZ. Cl 15,3) , EM*JZ S ( 15, 3 ) , EPCM ( 12 ) ,F|RR( 15 ) ,MEDGY ( 12) , VEO«_Y( 12) , 

5 RICYI37), SATR I (99 ), SERA (22), S ERR (22), SESFI22), S0r p (22), 

6 THSF( 24) ,TI TLEi 13) , TM3F { 15,3) ,TMFSIL( 12) , TM;IF{ 15,3 ) , T ^ N C T ( 12) , 

7 TMOF ( 15 , 3 ) , TMPET ( 12 ) , TVPREC ( 1 5, 3 ) , TMRPM ( 12 1 , T v f< TF( 1 2 ) , TMSF.I15 ,3) , 

8 TMSNE (12) *T M STF'( L5,3) , TMST FI ( 15 , 3 ) , T? OOFH ( ? L ) , T20PRH ( ?XU 

* UHF A (99) ♦ f M R T p I ( 1 2 ) , J UL D AT { 6 ) , T HS FD ( 744,3) , T FM AX Y ( 3 6 6 ) , 

A P E AKS ( 6 ) , P HR S ( 6 ) , i% S P T S ( 6 ) , T H S F DM ( 6 ) 

LOGICAL LSHFT 

INTEGER CDSDR, CN , CDNf?PT , D ATT , DAY , OPY , EHSGD 1 HOUR, HRF , HRL , PDA Y f . 

1 PRDfRHPD , RrlPH’tR S3D , SG M 0 , SORT ,SGRT 2 , YE AR , YR l , YR2 , P HRS , S I ND£ X 
INTEGER Tn«ARY,TSMARY,1UaARY, T SOAR Y , Tf)S ARY, TSSARY 
INTEGER DATES, COA TE, SI NOE 1 , M P D A Y ( 15) 

DIMENSION ft P L 0 T 5 f IS 3 2 ) i ?, CO M M A ( 1209 7) 

EQUIVALENCE tD?Y,RPLCrC:( n ) t iCRFMI rRCOMMAIl) ) 

REAL I F P P C , l F P C , I FRL , IPS , L ZC , L Z P X , L Z S , L Z SR , MHS M , MNRD , MR NS M , NH PT 
DATA MEOCY/ 0, 3 1 1 5 9 , 90 , L 2 0 , 15 1 ,181, 212 , 243 ,2 73 , 304,334/ 

DATA MEOW Y/ 304,334, 365 ,31,55,90, 121 , 151, 181 ,212, 24 3 , 273 / 

REAL MXDRSF , M XOS SF , MXMH SF , MXMS SF , SSQD • 

REAL S S 0 v ♦ 5 S 05 1, S S 1 M I ,VOKSF f VDSSF 

REAL V-M.RSF , VM5SF , SDJRSF, SDDSS F, SQMRSF , SOMSSF, SMDD, SMMD , SMSQD, 

* SMSQM 

REAL MDRSFfMDSSFfMMRSF , MMS S F -r:,.' ; •. 

BACKSPACE 11 

READ (11) ( RPLOTC ( I ) ,1=1, 16321 
BACKSPACE 18 

READ ( 18 ) ( ft COMMA ( T ) , 1=1,12037) 

C A L L RE AD ( G W S , U IS , L 2 S , 8 PN X , 1 F S ,UZC , SI A H ) 

WRITE (6,50051 G« S,UZS,LZS, BFNX, IPS , UZC , SIAM 
5005 FORMAT (IX, 4FGWS= , F7 *3 , IX , 4HUZ S~ ♦ F 7 • 3 , LX, 4HL ZS= , F 7* 3, IX,5HFFNX=, 
1F7 • 3 , IX, 4^1 FS= ,F7* 3* IX , 4HUZC- , F 7. 3> 1 X , 5 HS I A M = , P 7 . 3 ) 

150 CONTINUE 

OATE=POATE , ■ - * . ^ -v .... 

OAY^OATES 

MDAY = PO A Y . . w ..: V . . v- . , .... 

S 1 NDE x=o ’ * . ‘ v \ -* v 

MAX 1 = 0 ' . — - •*.' ••• v'. . . V 

AMR PM = 0.0 

AMPREC = 0.0 " .v . 

AMBF = 0.0 

AMSE = 0.0 . , ••• : ,*V ; ' : , ';.i • • - '.'v- 

AMSTF = 0.0 
AMRTF =0.0 

IFi'DPY . EQ. 366) MEDWY(5) = 366 
WRITE (6,4) < T I T L E ( K T A ) , K T A - It 1 8 ) 

4 FORMAT ( IH1, iOX, L3A4, // ) 

3 FORMAT ( IX , 1 PAST kUN HOURLY CFS VALUE 1 ,//,lX> 4A4 ) 

, ’ WRITE (6,3) MS 3D I C 

C BEGIN CAY LOOP * • . ’ . ^ 

imgnth=munth 

152 TDSF = 0.0 , 

IF ( MONTH. NE.4) ~G0 TO 148 ' * 

IF (MOAY.NE. 31) GO TO 149 

148 IF ( DA 1 E. GT. I M CD ( DAY ,MDAY ) ) ) I M(JMTH=M(JNTH+ 1 

149 CONTINUE 


PAST 0001 
PAST 00 02 
PAST 0003 
OASI 0004 
PAST 00 05 
PAST 0006 
PAST 0007 
PAS TOO Oft 
PAST CO 09 
PAST 00 10 
PAST 00 11 
PAST 00 ! 2 
P AST ? r - 1 3 
PAS TOO 14 
PA ST CO 1 5 
PAST DO 16 
PASTOO 1 7 
P AS TOO 18 
PAST0019 
PAST 0020 
P AST 00? 1 

past:o 22 

P AST D0?3 
PAST 0024 
PASTOO 25 
PAS f 0026 
PASTOO? 7 
PAST 0028 
PAST 0029 
PAST 0030 
PAST0031 
PAST003? 
PAST 003 3 
PAST 3034 
PAST CO 3 5 
PAST 0036 
PAST 003 7 
PASTOO 38 
PAST 0039 
PAST 0040 
PAST 004 1 
PA ST 004 2 
PAS TOO 4 3 
PAST 0044 
PAST 0045 
PA STOP 4 6 
PAS TOO 47 
PAS TO 048, 
PAST 004° ' 
PAS TOO 50 
PAST 00 5 l 
PAST 00 5 2; 
PAST OC 53 
PAS TOO 54; 
PASX0055 
PAST m 56 
PAST 0057 
PAS TOO 5 8 
PAS TOO 59 
PAST 0060 
PAST 0061 
PA ST 006 2 
PAST 3063 
P AST 0064 
PAST 0065 
PAST 0066 
PAS T 0067 
P AST0068 
PAST 0069 
PAST0070 
PASTOO 7 1 
PAST 007? 
PAS TOO 73 
PAST0074 
PASTOO 75 
PAST 00 76 
PAST0077 
PAST 0000 
PAST 0000 
PASTOO)) 
PAST 0079 
PAST 0080 
PAST 0081 
PAST 00 8 2 
PAST 00B3 
PAST 0084 
P AST0085 
PASTOO 86 
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PET=EPCM( I MCNTHI*DPE TI DAY) 

PETU = PET 
TFMAX =0.0 

C E V&POTR ANSP I R AT l CN ADJUSTMENTS 

IF 1 ( CONDPT ( 7 J .NE. 1) GO TU 153 
IF I CMXT I DAY I - 4. 0*fcLD I F .LT. 40.0) PET = 0.0 
IFISPTW .GT. SPTWCC ) PET = FF UR*Pb r 
C CALCULATION OF SNOW EVAPORATION’ 

I F ( DMN f ( DA Y ) .GT. 32.0 .OR. SPTM .LE. DPSEIDAY1I Gp TO 153 
SE = DPSE(OAY) 

, AMSNE = AMSNE + SE 
SPTW = SPTW - SE 

IFISFMD .GT. 0.0) SOEPTH = SCEPTH - SE/SFMO 

153 DO 202 HOUR = 1.24 

IF ( ( NSGRO .EQ. 0) .AND. I DKHP I DAY, HniJR ) .NE. 0.0) .AND. IPET .EO 
1 PETU) .AND. I CONOP T ( 3 ) .EQ. II) PET = 0.5*0 ET 

154 IF! HOUR .EQ. SGRT + l) RGPM = DRGPMIOAYI 
IF I HOUR .EQ. 9) HSE = ( FWTR*PET ) / 1 2.0 

I F ( HOUR . EQ . 2 1 I HSE = C.O 
PRH = RGPM*URHP(DAY,HUUR) 

AMPREC = AMPREC ♦ PRH 
C ENTER SNOWMELT SUBROUTINE 

IF (CCNUPT ( 7 ) .CO. 1) CALL SNOMELIBODFSM, SPTWCC, SPM.ELDIF, DAY, 

1 SPBFLW, XCNFS,EFOR,EFST , MRNSM. DSMGH, SUE PTH , STMD, PXCSA.hOUR, 
"'2 SAX,SOFRF,OFRFIS,SCFRFI , AMFS IL , PRH, SP TK, T ANSM , SPLW, SFMD ,OFRF , 

3 HT4AM,WT4PK,ASM,ASMRG,SASFX,SARAX,0MXT,DMNT,RICY,FIRR) 

155 AMRPM = AMRPM + PRH 

156 TOFR = 0.0 

ARiHF = 0.0 j 

C 15 MIiNUTE ACCOUNTING AND ROUTING LOOP 
DO 187 PRD = 1,4 
PEBI = 0.0 
PPI = 0.0 
OFR = 0.0 
OFRIS =0.0 

mi; = 0.0 

MEIFS = 0.0 
PMEUZS =0.0 
PMELZS =0.0 
PMEIFS = 0.0 
PMEOFS = 0.0 

PEP = 0.26*PRH ■ 

IFICCNOPT (2) .EQ. 1) CALL PREPRD(RGPM,DRHP,DAY,HOUR,DPY,PRD,PEP, 

1 PRH) 

IFIPEP .GT. 0.0) GO TO 157 
IFIOFUS .GT. 0.0) GO TO 159 
IF { I FS .GT. 0.0) GO TO 170 
IFINRTRI .GT. 0) GO TO 172 , 

TRHF = 0.0 

IFIRHFO .GT. 0.0) GO TO 181 
GO TO 184 

C RAINFALL UPPER ZONE INTERACTION 

157 IFIPEP .GE. VINTCR) GO TO 158 
UZS = UZS ♦ PEP*T PLK 
VINTCR = VINTCR - PEP 

PPI = 0.0 
PEBI = 0.0 
PMEUZS = PEP 

IFIOFUS .GT. 0.0) GO TO 159 
GO TO 170 

158 PPI = PEP - VINTCR 

UZS = UZS + VINTCR*TPLR 
VINTCR = 0.0 

LZ SR = L7S/LZC ; 

UZC = SUZC+AEX90 + 3UZC*CXP {•’ 2 .7*LZSR ) 

IFIUZC .LT. 0.25) UZC = 0.25 
UZRX = 2.0*A8S ( UZS/UZC — 1.0) + 1.0 
FMR = ll.O/I 1.0 «• UZRX ) ) **UZRX 
IF (UZS .GT. UZC) FMR = 1.0 - FMR ’i ■ 

;■ PEBI = PPI *FMR ..X v = ?:■. S : *v : : 

PMEUZS = PEP - PEBI \ . 

UZS = UZS ♦ PPI - PEBI 
C LOWER ZONE AND GROUNDWATER 

159 LZ SR = LZS/LZC 
EID = 4.0*LZSR 
IFILZSR .LE. 1.0) GO TO 
EID = 4.0 ♦ 2.0*( LZSR - 
IF (LZSR .LE. 2.0) GO TO 
EIO = 6.0 

160 PEBI = PEBI ♦ OFUS 
CM IR = 0.25*SIAM*BMIR/(?.0**EID) 

• Cl VM = BIVF*2.C**LZSR 

IFCCIVM .LT. 1.0) C I VM = 1.0 
PEAI = PEBI*PEBI/(2.0*CM!R*CIVM> 

MI = PEBI*PEBI/(2.0*CMIR) 

IF I PEBI .GE. CMIR ) W I = PEBI - 0.5*CMIR 
IFIPEBl .GE. C M IR=C I VM) PEAI = PEBI - 0.5*CMIR*C I VM 

up I CC ■ ~ L| I - PEA I r 

IfipEBI •LE. CFUS) GO TO 161 

'■ ; ■ . * ' ; . 1 J . ’ 
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160 

1 . 0 ) 

160 


PAST 00 8 7 
PAST 00 88 
PAST 00 89 
PASX0D90 
PAST0091 
PAST 0092 
PAST 0093 
PAST 0094 
PAST 0095 
PAST 0096 
PAST 0097 
PAST00 Q 8 
PAST 0099 
PAST0100 
iPASTOIOL 
PAST 0 1 02 
PAST 01 03 
PAST 01 04 
PAST 01 05 
PAST 01 06 
PAST 0107 
PAST 01 08 
PA ST 01 09 
PAST0110 
PAST 01 11 
PASTOl 12 
PAST 01 13 
PAST 01 14 
PAST 01 1 5 
PASTOl 16 
PAST 01 17 
PAST 0118 
PAST 01 19 
PAST 01 20 
PAST 01 ? I 
PAST 0122 
PAST 0123 
PAST9124 
PAST 0125 
PAST 01 26 
PAST0127 
PAST 01 28 
PAST0L29 
PAST 01 30 
PAST 01 31 
PASTOI 32 
PASTOl 33 
PAST0134 
PAST 0135 
PAST0136 
PASTOL 37 
PAST 0 13 8 
PAST 01 3 Q 
PAST 0140 
PAST 0141 
PASTOl 42 
PAST 01 43 
PAST 0144 
PAST 0145 
PAST 01 46 
PAS T 01 47 
PAST 0148 
PAST 0149 
PAST 01 50 
PAST 01 51 
PAST 0152 
PAST 0153 
PASTOl 54 
PAST01 55 
PAST 01 56 
PASTOl 57 
PAST 0158 
PAST 0159 
PASTOl 6^ 
PASTOl 6 l 
PAST 01 6? 
PASTOl 63 
PAST 0164 
PASTOl 65 
PAST 0166 
PAST 0167 
PAST 0168 
PASTOl 69 
PASTOl 70 
P A S TO 1 7 1 
PASTOl 72 
PAST 0173 
PAST 01 74 
PAST 0175 
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PMELZS = (PEBI - W I ) *( (PEBI - OPUS) /.PEBI t 
I PMEIFS = WEIFS*( ( PER I - OFUS)/PEPI) 

PMfcOFS = Ph A I * ( IP EB 1 - OFUS)/PEBI) 

1(61 CONTINUE 

j l F ( ( PEA I - OFUS ) .GT • 0.0) GO TO 162 

E00 - (OFUS + PE A I ) / 2 .0 
GO TO 163 

162 EGO = EQDF*((PFAI - OFUS)**0.6) 

163 IF ( (OFUS ♦ PEAT) .GT. ( 2.0*EQD) ) EQD = 0.5*(0FUS ♦ PEA!) 

IF ( ( OFUS f PEA I ) . LE . 0.00 1 I GO TO 164 

OF R = 0.25*0FRF*( ( ( D H U S ♦ P E A T ) *0 . 5 ) *+ 1 . 67 )*,( ( l . 0 ♦ 0.6*1 (OFUS ♦ 
i PEAU/(Z.O^CO|)n?.0)^1.67) i" 

IF(OFR .GT. <0.75*PEAm OFK = 0.75*PEAI 

164 IF C F IMP .CQ. 0.0) GO TO 168 • 

165 PEIS = PPI + OFUS I S 

_ IF ( I PE IS- OFUSIS) .GT. 0.0) GO TO 166 

EOO I S = (OFUSIS * PEISI/2.0 
GO TO 167 

166 EODIS = EQ DF I S*( ( PE 1 S - OFUSI S ) **0 . 6 ) 

167 IFUOFUSIS 4* PEIS) .GT. ( 2. 0 *F0D I S ) ) EODIS = 0.5*(0FUSIS + PEIS) 

I F ( ( OFUS I S ♦ PEIS) .LE. 0.01) GO TO 168 

OFRIS = 0.25*0P*FI.S*mnFUSlS ♦ P E l S ) *0 . 5 ) ** l .67 ) * ( ( 1 . 0 ♦ 0.6*(( 

1 OFUSIS, + PEIS)/(2.0*CUOFIS) ) ** 3. 0 ) ** 1 .67) 

IFCOFRIS .GT. PEIS) OFRIS = PEIS - , . ^ 

168 TOFR. = TOFR * FPER*OFR ♦ FIMP*OFRIS ♦ PPl*FWTR .. - 

* OFUSIS = PEIS - OFRIS * 

OFUS = PEA I - CFR 

• IF ( OFUS .GE. 0.001) GO TO 169 

LZS = LZS + OFUS . - ■ 

OFUS = 0.0 

OFRIS = UFRIS + OFUSIS 
OFUSIS = 0.0 

169 LZRX- “ 1.5*ABS(LZS/LZC - 1.0) + 1.0 
FMR = ( 1 . 0/ ( 1.0 + L ZRX ) ) **L ZR X 

IF ( L ZS .LT. LZC) FMR = 1.0 - FMR* ( LZS/LZC ) 

PLZS - FMR* ( PE3 I - WI) 

PGW = (1.0 -FMR) * ( PE Bi - Wl)*(1.0 - SUBUF)*FPER 

GW S = GWS ♦ PGW 
BFNX - RFNX + PGW 
LZS - LZS + PLZS 
If S = IFS * WE I F S*FPER 

170 SPIF = IPRL*IFS t . 

AMIF = AM IF + SPIF 

IFS = IFS - SPIF 

IFUFS .GE. 0.0001) GO TO- 171 

LZS = LZS + IFS 

IFS = 0.0 

l|7 1 UHFA(l) = FPER*OF R ♦ PPI*FWTR + FIMP*OFRIS ♦ SPIF 
SPDR = UHFA ( 1 ) 

C ROUTING 

172 I F ( CONOPT ( 12 ) .NE. 1) GO TO 173 _ 

URHF = URHF ♦ 0 . 25*UHF A ( 1 ) ’ -7*' * — 

IF (PRO .NE. 4) GO TO 181 
UHFA ( 1 ) = URHF 

173 TRHF = 0.0 . , 

KTR I = NCTRI 

I F (CONOPT (13) .EQ. 1) KTR! = NCSTRI 

174 URHF = UHFA ( KTR I) 

IF (URHF .LE. 0.0) GO TO 176 ~ 

175 TRHF = TRHF + URHF*C IR l ( KTR I ) 

I F ( CONOPT (13) .EQ. 1 .AND. LSHFT .AND. KTR I .GE. 2) TRHF = TRHF ♦ 

1 URHF* SAT R l ( KTR I - 1) 
i UHF A ( KTR I + 1) = URHF 
'! GO TO 177 

176 UHFA ( KTR I + 1) = 0.0 

177 KTR I = KTR I - I . * 

IF ( KTR I .GE. 1) GO TO 174 

170 IF(URHF .LE. 0.3) GO TO 179 
jNRTRI = NCTRI 

I F ( CONOPT (13) .EO. 1) NRTRI = MXTRI 

179 NRTRI = NRTRI - l 
UHFA ( 1 ) = 0.0 

IF ( CONOPT ( 13) .NE. 1) GOTO 180 
. * NNSTRI = NCSTRI + 1 
UHFA ( NNSTR I ) = 0.0 

180 URHF =0.0 

181 IF ( SRX .LE. CSRX) SRX = CSRX 
RHF1 = TRHF - SRX* ( T RHF - RHFO ) 

RHFO = RHF 1 - 

IF (RHFO .LT. RHFMC ) RHFO = 0.0 
4 TFCFS = <4.0*RHFl + CRF - HSb)*WCFS 
IF ( CONOPT ( 13 ) .NE. 1) GO TO 182 

IF ( CONOPT ( 12 ) .EQ. I .AND. PRD .NE. 4) GO TO 182 

CALL RT VAR Y (CTRI f SATRI t lVTR i , CHCAP , N‘3TR I f MXTR I rNCSTRl t EXQPV , LSHFT » 
1 TFCFS) 

DATE = MOD (DAY ♦ MD AY ) 

IF (LSHFT ) WR ITE ( 6 » 6 ) DATE , HOUR tPRD t NCSTRI 
6 FORMAT ( 2Xy I 2 « 2Xt 1 2 1 2Xt I 2? 2Xt20HHI STOGRAM CHANGES TO f lX, 12 # iX f 
l 8HELEMFNTS) 


RHFO) 


obigtnax;pa®J| 

OF POOR Q OALTTY 





I ! (' ) 


182 CONTINUE PAST 0265 

IPITFCFS »LE. 0. 5*CHCAP) SRX = CSRX PAST07.66 

IF I C TFCFS .GT. 0. 5*CHC API .AND. (TFCFS .LT. 2.0*CHCAPI» SRX = CSRXP AST 07.67 

. 1 ♦(FSRX - CSRX I * ( ( TFCF S - 0 . 5 *CHC AP I / ( 1 .5*CHCAP )) **3' P|AST0268 

IF I TFCFS .GT. 2.0»CHCAP) SRX = FSRX ^4510269 

, IF ( TFCFS .LE. TFMAXI GO TO 183 PAST 02 70 

PROF = PRO PAST 02 71 

i TDFP24 = HOUR , PAST0272 

IF! PRO .LE. 31 T0FP24 = ITDFP24 1.01 ♦ 0.15+PRDF PAST0273 

■ TFMAX = TFCFS PAST 02 74 

183 ARHF = ARHF «• PHF1 PAST0275 

STCRM OUTPUT REQUESTED 3Y C0NCPTC1) . PAST0276 

184 IF 1 CLNOPT ( l I .NE. II GO TO 196 „ PAST0277 

. IF I DAY .NE. CDSDR I GO TO 186 PAST0278 

IF ( HOUR .EO. I .AND. PRO .FQ.'U WRlTfc<6»7) PAST0279 

7 FORMAT ( 1H// * 2 l X* 1 9HR AI NFALL DEPOS I T l ON , 1 2X, 16HM01 STURE STORAGE, PAST 028P 
l 1 14X, 17HSTREAMFL0W OR I GIN, 6X • 14HSTRE AM 0UTFL0W/2X, 1 16H0Y HR PO RAPAST0231 


2IN EUZS 6LZS EIFS EOFS UZS LZS IFS OFS SPAST02 82 

3P0F SPIF SPdF SPTF INCHES CFSI PAST3283 

DATE = MODI DAY, MDAY I PAST0284 

OFS = OFUS*FPER + OFUSIS*FIMP PAST0285 

SPOF = OFP*FPER + OFRIS*FIMP PPI*FWTR 7“ . . • PAST0296 

SPBF = 0.25*(CBF-HSE I . . PAST02R7 

SPTF = SPOR ♦ SPBF PAST0288 

SPOR = 0.0 - . PAST 0? 89 

1FIRHF0 .LE. 0.0) TFCFS = I CBF - HSE)*WCFS PAST0290 

RSPTF = 0.25*TFCFS/WCFS PAST 0291 

WRITE (6, 8 1 DATF , HOUR , PRD, PEP , PMEUZ S »PMELZS»PMEIFS *PKEOFS»UZS,LZS PAST 02 92 
1, IFS, OFS, SPOF, SPIF, SPBF, SPTF, RSPTF, TFCFS PAST0293 

FORMAT (2X, 12, IX, I 2, IX, I l, 5( IX, F6.4I , 2X , 4( F7. 4 1 , 2 X,5 1 IX , F 6.4 ) , IX , P AST02O4 
1 F7.1I PAST0295 

IF I HOUR . EQ. 24 .AND. PRD .EQ. 4) GOTO 185 . PAST0296 


SP AST 02 82 
PAST02 83 
PAST 02 84 
PAST 02 85 
PAST0296 
PAST02 87 
PAST0288 
PAST 0? 89 
PAST 9290 
PAST 0291 


HK IlclOfb) IJA I V f HUUKf rHUf rLr f rMtUi jtrrltLL oirnt l r o * r r> tUr O t Ut OfLco 

laFStUFSf SPOF, SPIF f SPBF , SPT F , P SPTF , TFCFS 
8 FORMAT (2X, I 2 , IX , I 2, 1 X f I i , 5 ( IX t F6. 4 ) , 2X , 4( F7. 41, 2X,5 ( IX , T6.4 ) »1X, 

1 _F7a.ll - ™ 


I F ( HOUR .EQ. 24 .AND. PRD .EQ. 4) GO TO 185 
GO TO 186 - . 

185 NOSCP = NDSDP + l . 

I F ( NOSDR . EQ • NDSDP) GO TO 186 v 

CALL DAYNXT (CDSOR fDPY) 

186 CONTINUE 

I F ( V I NT CR .LT. 0«25*VINTMP) VINTCR = ViNTCR ♦ DPET( DAY) /96. 0 

187 CONTINUE 

END OF 15 MINUTE LOOP 

I F ( CCN3PT ( 5 ) .NE. 1) GO TO 197 
HOURLY OVERLAND FLOW AND RAINFALL SORTING 

: IF(TOFR .LE. 0.0) GO TO 193 * . ♦ 

KT 20-= 20 * - - 

188 IFIKT20 .LT. 1) GO TO 192 

I F ( TOFR .GT. T20QFH ( KT20) ) GO TO 189 
GO TO 190 

189 T 2 OOFH ( KT 20+1 ) = T200FH(KT20) . 

GU TO 191 

190 T200FH ( KT20+ 1 ) = TOFR , , 

GO TO 193 * ; 

191 KT 20 = KT20 - 1 . . . J . . .. 

; GO TO 188 

192 T2 OOFH ( 1 ) = TOFR , . 

193 IF(PRH .LE. 0.0) GO TO 197 . 

KT2 0 = 20 -V :^-vrV.v;.. 

194 IFIKT20 .LT. 1) GO TO 196 

V I F ( PKH .GT. T20PRHIKT20) ) GO TO 195 , . 

T20PRH ( KT 20 ♦ 1) = PRH . V • 

GO TO 197 f ... ■ 

195 T20PRH<KT20*1) = T20PRH (KT20) 1 

. KT 20 = KT20 - 1 . - . . . 

196 T20PRH4 1) » PRH \ .. ; .:/- 

ADDING GROUNDWATER FLOW 

197 CBF = GWS^BFRL^ (1.0 + BFNRL *BF NX ) ■ ; # 

GWS = GWS - CBF V‘:. 

AMBF = AMBF + CBF v w, .«• 

THGR = ARHF + CBF 

IF ( HSE .GT. THGR) HS 1 = THGR 

AMSE = AMSE + HSE * . . - .• r,. 

THSF ( HOUR ) = (THGR - HSE)*WCFS -V/ . - . 

TOSF = TDSF + THSF (HOUR) 


C STORE SIMULATED HOURLY STREAM FLOWS 
C DRAINING UF UPPER ZONE STORAGE 
S I NDtX= S I NDCX+1 

THSFD(S INDEX tl)=THSF (HOUR) _ j_ 

306 UZ INFX=(UZS/UZC) - ( LZS/LZC) 

IF(UZINFX .LE. 0.0) GO TO 198 
V liZSR = LZS/LZC 

UZINLZ = 0.093*3MTR*UZC*UZINFX**3.0 

IF (UZINLZ .GT. UZS) UZINLZ = UZS 

UZS = UZS - UZINLZ 

LZRX = 1.5 + ABSCLZSR - 1.01.4- 1.0 

FMR = (i.0/(1.0 + LZRX ) ZRX 

IF 4 LZS .LT • LZC) FMR = L.O - FMR ♦LZ SR 

PGW = i l • 0^ FMR )■ * UZINLZ? 4 1.0 - SUBWF)*FPFR 

PLZS = FMR*UZINLZ 


PAST 02 96 
PAST9297 
PAST 02 98 
PAST 0299 
PAST 03 00 
PAST 03 01 
PAST 03 02 
PAST0303 
PA ST 03 04 
PAS T 0305 
PAST 03 06 
PAST0307 
. PAST 03 08 
PAST 03 09 
PAST 0310 
PAST 0311 
PAST 0312 
PAST0313 
PAST 03 14 
PAST 03 1 5 
PAST 03 16 
PAST93 l 7 
PAST 0318 
PAST 0319 
PAST 03 20 
PAST03 21 
PAST0322 
P A S T 03 .? 3 
PAST0324 
PAST 03 29 
PA ST 03 2 6 
P-A S T 0 3 2 7 
PAST 03 2 8 
PAST0329 
PAST 03 30 
PAST 03 31 
PAST 03 32 
PAST 0333 
PAST 03 34 
PAST0335 
PAST03 36 
PA ST 03 3 T 
PAST0338 
PAST 03 39 
PAST 0340 
PAST0341 
PAST 0342 
PAST 03 43 
PAST 03 44 
PAST 0345 
PAST 03 46 
PAST 03 47 
PAST 03 48 
PAST 03 49 
PAST 03 50 
PAST 03 51 
PAST 0352 
PAST 0353 
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"LZS = LZS + PLZS 
GWS = GWS ♦ PGW 
BFNX = HFNX + PGW 

4 PH ADJUSTMENTS OF VAR IQUS VALUES 

198 IF (HOUR • NE • 16) GO TO 202 
ACX9Q = 0.9*(ACX90 + PET ) 

4EX96 = 0 • 9 6 * ( A E X 9 6 + PET ) 

INFILTRATION CORRECT FUN 

SIAM = ( AFX 96/ AE T X ) **S I AC 
IF (SIAM .IT. 0.33 ) SIAM = 0.33 
BFNX = 0.97 *HFN X 
IF (PET .EQ. 0.0) GO TQ 202 

evap-trans luss from groundwater 

GW El = GWS*GWETF*PFT*FPER ; 

GWS = GWS - GWtT 

BFNX = BFNX - GWET 

IF (BFNX .LT. 0.0) BFNX = 0.0 

AMPET = AMPET 4- PET ’ j 

I F ( PET .GE. UZS) GU TO il99 

UZS = UZS - PET ‘ 

AMNET = AMNET + PET 
GO TO 202 

199 PET = PET - UZS 
AMNET - AMNET + UZS 
UZS = 0.0 

I LZ SR = LZS/LZC 

"! IF (PET .Gt. E TLF*L ZS ft} GO TO 200 

SET - PET*<L.O - PET / ( 2 . 0*E TL F *LZS R II 
GO TO 201 

200 SET * 0.5*ETLF*LZSR 

201 LZS = LZS - SET 
AMNET = AMNET + SET 

202 CONTINUE — v ■ ■ . 

END OF HOUR LOOP 

DSSF(DAY) = TDSF/24. 0 

IF (CONOPTT 1 1 ) .EG. 1) DSSF ( DAY ) = D SSF I DAY ) + DDIW(DAY) 

203 AM RTF = AMRTF + DRSE(DAY) . 

AM ST F = AMSTF 4 - DSSF (DAY) 

IF(C0NUPT(6) .EG. 1) EDLZS ( DAY ) ” LZS 
STORE ERRORS AND FLOW DURATION 
IFI CQNOPT ( 4 1 *NE. 1 1 GO TO 204 
ERR = DSSF (DAY ) - URSP ( DAY ) 

IFTDRSF ( DAY ) .LT. LiO) KRFMi = 1.0 

IF ICRS F (DA Y ) .GT. 1.0) KRFMI = 2.0* ALOG( DRSF(DAY ) ) + 2.0 
CRFMK KRFMI) = CRf-MI (KRFMI) + 1.0 
SERB { KRFMI ) = SERR (KRFMI ) + ERR 


SERA (KRFMI ) = SER A (KRFMI) + A b S ( ERR) 

SQER { KRFMI ) ~ SQE R (KRFMI ) + ERR* ERR 
SE SF ( KRFMI ) = 0.0 

I F ( CRFM I( KRFMI ) .GT. 1.0) SESF(KRFMT) = S3RT ( ABS( ( SQER (KRFMI ) - 
1 SERR (KRFMI )** 2 /CRFMl (KRFMI )■)"/'■( CRFMl (KRFMI) - 1.0))) 

204 CONTINUE 
; DAT F = DA Y 

IF ( (M0NTH.E0.4) . AND . ( MDAY. EG . 31 ) ) DATE -MOD ( DAY* MDAY) 

IF (MONTH. NE. 4) D AT E=MOD( DAY « MO AY ) 

WR I TE ( 6 » 9 ) DATE, ( THSF ( HOUR ) *HQUR = l » 12) 

9 FORMAT ( 1H/, IX/, IX, I4 f 2X,2HAM, IX.6F8.1 f 3X f 6F9. I) 

WR I T E ( 6 » 10 ) ( THSF ( HOUR ) . HOUR= 1 3 »?4 ) » DSSF (DAY ) 

10 FORMAT< lHJ,6X#2HPMf IX, 6F8.1 ,3X f 7F8.l) 

IF(TDFP24 .LT. 12.?) GO TO 20 5 
TDFP12 = TDFP24 - 12.0 

11 FORMAT ( IH/ f 10X # 8HMAX|MUM-tF8.1,2X,6HC.F.S.f5Xt4HTIMEt3X f F5.2.2X* 

1 4HP.M. ) _ 

GO TO 206 

205 CONTINUE 

12 FORMAT! 1H/,I0X. BH M A X I MUM- * F 8 • 1 f 2Xr» 6 HC • F .5 • 9 5 X » 4 HT I M E * 3 X r F5 • 2 » 2 X ? 

1 4 H A . M • ) 

206 I F ( CCNOPT ( 7 ) .EQ. I .AND. SOEPTH .GT. 0.0) WR l TE ( 6 , 13 ) D ATE » 
1SDEPTH 9 STM D» S A X , T A NS M , SPLW 

13 FORMAT (3X, l 4 , 2 X, 7HSD BP TH= , F 8 . 2 ,2X » 5HSTMD= , F 6 . 2, 2X • 4HS AX- , F 6 . 2 1 
I 2X f 6HTANSM=fF6.2f2X*5HSPLW=tF6.2l 

MAX I =MA X I + 1 
MPDAY ( M AX I )=OATE 

C MONTHLY SUMMARY STORAGE ‘ " /:• 

* STMRGS ( MAXI ti )=USSF{ DAY) i ' V..;':: -.D.-..,*' . D. *>; r - .. . 

TMSTF ( MAX I ♦ V ) -AMS TF 
AMSTF = 0.0 

TMRTF ( MCNT H ) = AMRTF V " ' 

AMRTF = 0.0 . . . . ... 

EMBFNX(MAXI, 1)=BFNX 
TMPREC (MAXI ,1)=AMPREC 

AMPREC * 0.0 ■' 

TMRPMtMCNTH ) = AMRPM ..O;-.//: . 1 ... . . k* 

AMRPM = 0.0 

TMBF (MAXI * 1 ) -AMBF 

AMBF = 0.0 

TM I F ( MAX 1 1 1 ) - AM IF 

AM IF = 0.0 

TMSE(MAXItl)=AMSE 


PAST 03 54 
PAST 03 55 
PAST 03 56 
PAST 03 57 
PAST 03 58 
PAST 03 59 
PAST 0360 
PAST 03 6 1 
PA STD 3 62 
PAST0363 
PAS TO 3 64 
PAST 03 65 
PAS T 03 66 
PAST 03 67 
PAST 03 6 3 
PAST 03 69 
PAST 03 70 
PAST 03 71 
PAST 03 72 
PAST 03 73 
PAST 03 74 
PAST 03 75 
PAS T 03 76 
PASTO 3 77 
PAST 03 78 
PAST 03 79 
PAST 03 30 
PA ST 03 31 
PAST 03 82 
PAST 03 83 
P AST 03 R4 
PA ST 03 85 
PAST 03 86 
PAST 03 87 
PA ST C 3 8B 
PAST 03 39 
PAST0390 
PAST 0391 
PAST 039? 
PAST0393 
PAST 03 94 
PAST 0? 95 
PAST 03 96 
PAST 03 97 
PAST0398 
PAST 0399 
PAST 34 00 
PAST 0401 
PAST 04 02 
PAST 04 03 
PAST 04 04 
PA ST 04 ^5 
PAST 0406 
PAST 0407 
PAST 0408 
PAST 04 09 
PAST 041 3 
PAST04U 
PAST 0412 
PAST 0413 
PAST 04 14 
PAS TO 4 1 6 
PAST0417 
PAST 04 1 B 
PAS TOO 00 
• PAST 04 20 
PAST 04 21 
PAST 04 22 
PA STD 4 2? 
PAST 04 24 
PAST 042 5 
PAST 04 26 
PAST 04 7 7 
PAST 0428 
PAST0429 
PA ST 04^ 0 
PAST0431 
PAST0437 
PAST 04 33 
PAST 04 34 
PAST 04 35 
PAST 0436 
PAST0437 
PAST 04 3 3 
PAST 043 Q 
PAST 04 40 
PA ST 0441 
PAST 0442 
PAST0443 
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AhSE = 0.0 

THPET ( MONTH ) = AMPET 

ANPfT - 0.0 

TMNET ( MCMT H ) = AMNET 

aMnet =0.0 

TMSNE (MONTH) = AMSNE --- 
AMSNE =0.0 

TMFSLL (MONTH) = AMFSIL 
AMFSIL = 0.0 
EMGWS( MAX I » L ) = GWS 

UZC fc SUZC*AEX90 ♦ aUZC*EXP 1-2 •7*LZS/LZGT 
IF (UZC .LT. 0.25) UZC = 0.25 

eMuzccmaxi f n=uzc 

EMUZStMAXl ♦ L )=UZS 

EM S l AM ( MAX I » l ) = S I AM “ 

• . EMLZS ( MAXI t 1 )=LZS 

‘ EM I FS l MAXI » 1 ) = I FS 
220 CONTINUE 

IF (MDAY.EQ.337) KOAY-59 

c ■ . i. : 

C STORE MAXIMUM DAILY STREAM FLOW FOR YEAR 
TFMAXYt MAXI ) -TFMA X 

3001 CONTINUE 

IF (DAY.EQ.ECATE) GO TO 3002 
CALL OAYNXTl CAYfDPY) 

IF (DAY.GT.LDAY) MD A Y=L DAY 
IF (DAY. EQ. 366) MDAY=337 
GO TO 152 

3002 IF ( CUNOP T ( L 6 ) . EQ. 0 ) GO TO 221 
BACKSPACE 11 

WRITE (11) (RPLOTC( I ) t 1=1,1832 ) 

BACKSPACE 18 

WRITE ( 18 ) (RCOMMA( I ), 1=1,12087) 

C END OF DAY LOOP 
221 CONTINUE 

RETURN - - 

END 


PAST9444 
PAST 0445 
PAST 0446 
PAST .^4 4 7 
PASTOR A 6 
PAST0449 
PAST 0450 
PAST 04 51, 
PAST 0452 
PAST 0453 
PAST 04 54 
PAST 0455 
PAST 04 56 
PAST 0457 
PAST04 58 
PAST 04 59 
PAST 04 60 
PAST 0461 
PAST 04 62 
PAST 0463 
PAST 0464 
PAST 04 65 
PAST 04 66 
PAST 04 67 
P AS T 04 6 8 
PAST0469 
PAST 0470 
PAST 0471 
PAST 0472 
PAST 0473 
PAST 04 74 
PAST 0475 
PAST 047o 
PAST 0477 
PAST 0473 
PAST 0470 
PAST 0480 
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SUBROUTINE OUTPUT C D I FRS ,01 TFMP ,DI F FP , 0 l FFPP , SUM, DiFFR , 0 I FFRP , OPUTDOOl 

1 ^ APRLC.DIFFPR, DIFOP, onUT,OMAX,PHRO»MSBOIC, OPUTO0O2 

2 i MPDAY ) OPUT 0003 

COMMON/ PLOTC/DRSF , OS SF , CONOPT » THSFD.TMSTF, SXMRUS { 121 * 6 ) » DP Y» T I TLF.0PUT0004 

2KFLAG, ICFL AG, OPUT 5015 

1 l ENUFG, STUDY ( 2 ) » PE AK S» PHRS.NSPTS, THSFDM.TFMA XD » T M RTF , JPLOT, OPUT 1006 

2 i NCTRI »CTRI ,FIRR»RICY»DPSE»RDDFSM, SPBFtW* SPTWCCitSPM , EL OIF, OPUT 0007 

3 1 XDNFS ,FFUR,FFS I , MRNSM »DSMGH» PXCS A »RMPF ,RGPMB« AREA, F I HP * OPUT0008 

A SATRI ,UHFA» . . ; OPUT0009 

8MNRD, ‘ OPUTOOIO 

4 FWTR , V I NTMR, BUZC » SUZC ,LZC, ETLF.SU3WF » GWETF , SI AC ,P>*IR , OPUTOOll 

5 3IVF,0FSS*0FSL*QFMN» DFMN I $ , I FFC , CSRX , FSkX » CMC A P < EXG p V * OPUTOOI2 

6 8FNLR,BFRC,GWS,UZS,LZS,BFNX, IPS , BrHTC ,3FRl , OF NRL , HFNHFy I FPRC , OPUTOOll 

7 I FRL i LS HFT » NR TR I , PNTR I , MXTK I ,NCS TR l , 3TR J , TTCFS , EPAFT , Rp rp t 0PUT0014 

8 TPLR, VINTCK ,HSE ,NP.TR l;,SP I F.CBP ,S PGR,, OPUS* OPUS I S ,0FR,GPR IS , PE I S , OPUT0015 

9 RHFO , UR HF » AM I F , AMNt T ,i AMPhT » AMSNE « AMPS IL ,S A SFX , S AR AX.,,SR X , VW IN, OPUT 00 16 

A WCFS ,RHF MC » SSRT , OFRF ».(}FRF IS , EuOF , t*Or F I S , SUFftf SDFRF I , OPUT 1017 

B SDE°TH, MULTI ,10, ASM, WT4AM ,wr4PM,SAX, T ANSM, SPTW, STMD , SFMD , ASMRG , OPUT 00 1 8 


XOE PEND ( 2 ) » VAR IN ( 2 ) .NPTSi, JULDI , I Yfi , TODAR Y< 5, U , 

YTOMAR Y <7,11 , TUSAR Y ( 5 ,6,1 ) ,TSI)ARY( 6 , L ) , TSMAR Y ( 8 • 1 ) , 

ZTS SARY (3,6, l » ,TSMCRY( 1 1 , TSDCR Y < 1 ) , T SPAR Y < l ,6 , l ) , 
WTCIRARY (1,6,1), 

CORSF T ( 366 ( , BSSFT ( 366 ) ♦ M I »N! , MULT * TMRT r T I 12) * TMSTET 1 12 ) 


0PUT1019 
OPUT 0020 
OPUT 00 21 
OPUT 0022 
OPUT0023 
OPUT 0024 


COMMCN/ COMMA/ FMBFNX , F.MGWS , C '•11 r S , EML ZS « E MS JAM * EMUZC « E M UZS » TMBF , OPUT 0024 

ITM l F » TMPR EC, TMSE, CKFM I , D'OI W,D ! NT ,DMXT ,DRCPM , DRhP, C« SGP , DP PT , EOLZS, 0PUT0025 
2EPCM, SERA, SERB, SESF, SUER, THSF, IMPS I L , TMNET , TMOF ,TKPE T , Tf'RPM , TMSNF ,OPUT M?6 


UPUT004? 
OPUT 0041 
OPUT 0044 
0PUT0045 
OPUTOD46 
OPUT 0047 
0PUT0D49 
OPUT 0041 
OPUT 00 51 
OPUT 0051 


1‘UATE', *0 ',5*' •/ 

REAL*4 S S PAST (361/21 * • ',' O' , 'BSER' ,'VED S'.MMUL', 

1* ATt 0 • , • • , • D I FF • * • • ,*SDIF a ,*F ' , 4* ' •/ 

RE AL*8 STSTI 9) / ' STORM SU', 'MMARY TA'.'ULE 2 ',6** •/ 

REAL*8 STRMT < 9 ) / ' STURM CH' , 'AR AC TER I ' » • ST I CS T ' , LADLE IA ', 
15** •/ 

RE Al*8 STCHAR (2521/* ',' STORM CH* ,' ARACTERI ',' ST I CS 


S' , * IMUL* , 


i 3TMSTFr,T200FH,T20PRH,TMRTFI ,JULDAT, OPUT0027 

4TFMAXY ,UZC, AETX ,OAY , NSGRD, AEX90,ST AM,NDSDP,RGPM,NDSDR , YR 1 , OP.UT0028 

5TRHF , • OPUT 0029 

SS'lNDEX, INDEX, AEX96, MAXI ,YR2, BYLZS, BY IPS, BYUZS OPUT0030 

KENTUCKY WATERSHED MODEL (VERSION OF JUNE 6, 1970) OPUT0031 

BASED ON STANFORD WATERSHED MODELS III C IV OPUT0032 

01 MENS I CM QTR I ( 99 ) , CONOPT I 16 ) , CMFM I ( 2? ) , C TR 1 1 99 ) , DD I W ( 3o6 ) , 0PUT0033 

1 DMNTI 366) , DMXTC366), DPS£(3o6), ORGPM'1 3661, DRHP ( 366 ,?4 ) , OPUT0034 

- 2 DRSGP I 366) , DPEK366), DRSF < 36o I , USSF < 366 ) , EDLZ S ( 36* ) , OPUT0035 

3 EMBFNXI 15*3) .EMGWST 15,3) ,fc II FSl 15 ,3) , EMLZSI 1 5,3 ) ,EMS I A«( 15,3) , OPUT 00 36 

4 E MUZC I 15,3) » EMUZ SI 1 5 » 3 )., bPCM ( 121, FIRM < 15 ) , MFDC V t 12! ,MEl’WY( 12) , GPUT0037 

5 i R I C Y ( 37 I » SATRI (99), SERA ( 22 ) , S ERR ( 2? ) , SESF ( ?? ) , SOP? (22) , OPUTODJR 

6 THSF (24) , T I TLF ( 10) , TMBF 1 15, 3 ) .TMFSILC 12 ) , TMI F ( 15 , 3 ) , TMNET ( 1 2) , DPUT0039 

7 TMOF ( 1 5, 3 ) , TMPET I 12 ) , TMPPEC ( 15,3) , TMRPM ( 12) , TMRT C ( 12) ,TMSF( 15 * 3 ) , OPUT 1040 

8 TMSNF ( 12) ,TMSTF< 15. 3) , TMSTF I (15,3) ,T2 OOFH( 2 1 ) , T20FFH ( 2 1 ) , OPUTD041 

* UHF A( 49 ) , TMRTF I ( 12 ) , JULDAT (6 ) , THS FD ! 744, 3 ) ;, TFMAXY ( 366 ) , ‘ UPUT004? 

A PEAKS(6) ,PHRS(6) , NSPTS ( 6 ) , THSFOMI 6 ) . OPUT0043 

REAL*8 MSVT ( 9 1 ''MOISTURE* ,* STORAGE*, • VALUES *, DPUT0044 

1*1 T* , • Aolc 3 A *,4*» •/ OPUT 3045 

REAL *8 SU8T< 11)/* ABLE 3A* , • ABLE 38 • PAST-',* 3A *,*UES OPUTOD46 

1 •• , • PAST RUN' , ‘ABLE 1A * , 'ABLE IB • ,* 33 * , * MMARY ' , 0PUT0047 

l* PAST •/ 0PUT0D49 

REAL QOUTI 15), SUM (3) , APREC ( 3 ) , MSBD l C 0PUT0049 

INTEGER MPOAY(IS) ,TYPF, CUNOPT 0PUT0051 

REAL*4 SCPASTI 36 ) / 18** *,3** • , • OBSE* , • RVED* , ' *, 0PUT0051 

l* S I MU* * * LATE* , *0 • ,3* • ' , *OBS 6* * • RVED' , * * , • SIMU • , 'LATE * , OPUT0052 

2*0 •/ OPUT 105? 

RE AL*4 MSP AS T (36 ) /20F ' *, 'SIMU' , 'LATE ', *D ',5** *, *S1MU* , 0PUT0054 

I'UATE* , *0 • ,5F* •/ OPUT 0155 

REAL*4 S S PAST 1361/21 + • ',* 0* , 'BSER* ,'VED *,' S'.MMUL', 0OUT0056 

I'ATfcO*,* • , • D I FF • , • '.'SDIF’.'F *,4** •/ 0PUT0057 

REAL*8 STST ( 9 ) / * STORM SU', 'MMARY TAM'ULE 2 *,6*' •/ 0PUT0058 

REAL*8 STRMTI9 )/' STURM CH* , 'ARACTERI ', 'STICS T • , LADLE IA *, 0PUT0059 

15** •/ OPUT 0060 

RE Al*8 STCHAR ( 252 ) / * *,' STORM CH* , * ARACTERI * ,' • STI CS • DPUT006L 

1,' FORECAST ', • RUN T • , • ABL E IA • , 12* * *,' WORS*, OPUT0062 

2* T NO *,' F/CA • , • ST *,* ' , 'WORST *,*NU ',0PUT0063 

3'F/CAST *,* CASE',* PREC', • IP • , 0PUT0064 

42** • , • C A S E • » * PREC I P *,9** *»* *, 0PUT0065 

8' PREC', OPUT 0066 

5'IP ',3** • , 'PREC I P ',3*' SUR ', OPUT0O67 

6197*' */ 0PUT0068 

REAL*8 STCSP( 197) /'R/0 ', 0PUT0069 

63*' • , • SUR R/0 ' ,3*' ',' INT ', OPUT0070 

7'FL ',3*' • , • I NT FL ',3*' ',* BASE', 0PUTO07t 

8* FL ',3** • , ' BASE FL ',3*' STM ', 0PUT0072 

9'R/O ',3*' • , ' STM R/0 ',3*' ',9*' ',' 0PUT0073 

APREC', 'IP • ,3*' • , *PREC IP *,3*' ',' SUR • , 0PUT0074 

B'R/O • , 3* • ' , ' SUR R/0 • ,3*» *,* INT ' , • FL GPUT0075 

C ',3*' • , • INT FL ',3*' BASE',' FI • , 3*' 0PUT0076 

D ' , • BASE FL ',3*' ',* STM *,'R/0 ',3*' DPUT0077 

E • , ' STM R/0 • ,3*' ',9*' ',' PREC', 'IP ',3*' 0PUT0079 

F ','PRECIP ',3*' ',' SUR • , ' R/0 ',3*' QPUT-1079 

S', 'SUR R/0 ',3*' ', OPUT 00 80 

G • INT • , • FL ',3*' • , * I NT FL ',3*' ',' 0PUT00B1 

HBASE' , • FL ',3*' ','BASE FL ',3*' STM •,*0PUT00.32 

IR/O ',3*' • , 'STM R/G * ,3*' ',9*' ',' POPUTGOBO 

JREC'.'IP ',3*' ','PRECIP * , 3* • ',* SUR ', DPUT0034 

K'R/O ',3*' • , • SUR R/0 • , 3* • ',' INT • , • FL 0PUT0085 

L ',3*' • , » INT FL • , 3* ' BASE',' FL • ,3*'0PUT0086 

K ','BASE FL ',3*' ',' STM ','R/O ',3*' 0PUTC087 

M ', 'STM R/0 • , 3 * ' •/ OPUT 0088 

REAL*8 STSURDI208) /?*• «, 'STORM SU' ,' MM ARY F ' , • OREC ASQPUT 0089 


2'T NO ',' F/CA', 'ST 
3'F/CAST ',' ',' CASE',' 

42*' ','CASE ','PRECIP • 

8' PREC', 

5'IP ',3*' ','PRECIP 

6197*' •/ 

REAL*8 STCSP( 197) /'R/0 ', 

63*' • , ' SUR R/0 ',3*' 

7'FL ' ,3*' • , ' I NT FL 


• ,'PRECIP 


• ,9*' 

• ,3*' 


* , 'WORST 
PREC* , • IP 


WORS* , 

• , 'NO 


8* FL ',3*' 

9'R/O ',3*' 

APREC' ,' IP 
B'R/O ',3*' 

C ',3*' 


• ,'BASE FL • ,3*' 
• ,'STM R/0 ' ,3*’ 

• ,3** ','PRECIP 

• ,'SUR R/0 • ,3*' 
',' INT FL ' ,3*' 

: FL • ,3* ' ', * 

I*' ',9*' 


•f • 

SUR *, 

I NT ' , 

• , ' 

BASE* , 


STM ' , 

• 1 9* f 

• ,3*» 

1 f # 

• t • 

INT •» 

*»* BASE 1 

t* FL 

STM S*R/0 

• 













r B-33 


AH * t 'RUN TAB' ,'LE 2 '.13*' 

BAST ','UIFF • , ' ZD! FF ',4* 

CV • » 'PEAK 1','CFS) 

O'iPEAK ( • * • HR ) ' t 1 6* • 

E I ', 'PRECIP < ' , • IN.) ',7*' 

RE AL*8 MSVARDtA'V 1)/’ 
l*.UES FORE* , 'CAST RUN',' TABLE* ,' 


2 ' 

3' WORST 
A' PR EC IP 
59 * • 


, ■ WURST 
r 'NO 


6 *| 

7' 

8 'i 

9'i 

A'i 

B' 


• ,2*' 

* » 3* ' 
',3*' 

S3*' 


UZS 
LZS 
GWS 
BFNX * ,3*' 
SIAM' ,3*' 
,3*' 
» 


IFS 


UZC 


M 

IFS • , 3* • 

2« 

UZS * ,3** 

2* 

LZS • , 3* • 


GWS • ,3*' 

?• . 

BFNX' ,3*' 

6 # j 

SIAM' ,3*' 

7* 

UZC • ,3*' 

REAL*8 MSVSUDti: 

i*j 

IFS * • 3* * 

2* 

UZS S3* 1 

2 *| 

LZS • t 3* * 

4» 

GWS ' ,3** 

5* 

B'FNX* , 3* * 

6* 

SIAM* , 3* ( 

?•, 

UZC S3** 

89^ • 

s 

!•, 

IFS • ,3** 

*4 

UZS S3** 

2»! 

LZS S3** 

4« . . 

GWS S3** 

5* 

BFNX* * 3** i 

6» 

SIAM* ,3** 

7* 

UZC S3** 

REAL 

BLANK/* 


• t - NO 

•• •F/CAST 
S * C A S E 

•! f 3** 

• J; 

v 


•••WORST ••• 

• • 1 CASE •••PRECIP 
• 7* • ',9»» • * 

. • • • R/O IS* IN) S16*« 

MO IS* , *TURE STO* ••RAGE VAL • • 
3A S19** 'i 


S •F/CAST 
S 2 ** 

S' PRECIP 


Si 
••• 


uzs 

LZS 

GWS 


* » ' 
S 4* 1 

• ft** 
',4*' 

3FNX • ,4** 
SIAM 1 f 4 ** 
UZC " 

IFS 
UZS 
LZS 
GWS 


S •CASE 
* • 2 * • 
IFS S4** 


,4*' 

• * 4** 
S 4 ** 

• t 4 ** 

• ,4** 
BPNXS 4** 


SIAM* ,4* • 
,4** 


UZC 


26i*v 


*/ 


*/ 


*! i 


I « 

• • • 
I i 

• \ * 
••• 
• • • 

s r 


I FS • 

uzs * 

LZS * 
GWS • 
BFNX* 
SIAM* 
UZC---* 


IFS • 
UZS • 
LZS • 
GWS • 
BFNX* 
SIAM* 
UZC • 


• 4** 
, 4 *« 
,4** 
•■4* * 

• 4** 

• 4* * 

• 4* * 

,4** 
, 4** 
,4* * 

• 4 * • 

• 4** 
,4** 
,4** 


:* 

*/ 


RE AL*4 STCHAS { 648 ) 

RF AL*4 STCSSI 394) I T - ■ ' 

RE AL*4 MS V AR V ( 648 ) 

RFAL*4 ST5MRYT 4 16 ) 

REAL*4 MSVSUP (270 ) 

EQUIVALENCE ( M'SV ARD( l) • MS VARY (I ) ) 

EQUIVALENCE (MSVSUOI l) • MSVSUP ( l) ) 

■ EQUIVALENCE - < STSURDIL ) • SI SMRY (1) ) 

EQU I VAL ENCEC STCHARI I ) » STCHAS ( l ) ) * 

EQUIVALENCE (STCSPd )• STCSS(I) ) 

TYPE=4 

MLN=72 

S : • . J— 0 *- *« 1 *•> • it* »' * •.» v >*, **>* 

MI -3 V 

. _ NOM=28 

00 23 K=l,394 . : \ . v -r - .- v 

STCHAS ( 110*K ) = STCSS< K) > . . — > ., 

23 CONTINUE 

IF (CONOPT 115} *NE« 2 ) GO TO 61 

J=3 - v f' 

... MI = 1 :,^w . >,’V _ /‘V ,. 

DO 65 1=1,36 

STCHAS ( 36+ I ) -SCP A ST ( I ) 

65 CONTINUE , • J .7 ~ ■ 

STCHARI 5) = SUBT(3) ■ , . . 

61 MA X=MAX I 

STCHAS! 55 ) =MSBO l C 

111=1 ■'■■■/ -v - 

13 . CONTINUE ■ *.>• ; ... . <_• .. - .v „ ’ -^v- , ; . > 

K- 0 
L=0 

-00 10 I = 1 • MAX * > 

■ IR = 1 - . .,v ■ ■ 

NUM = 2 ^ 

CALL CONVER ( MPDAY I L I ), STCHAS i 9 l^K+L) , IR,NUM) 

DO 11 M=lfMI 

num= 3 - . i;- 

I R = 0 

^ ! CALL C CNVFR ( TMPR EC ( I ,M ) , STC HAS C (92 + ( 2*M ) ) 4-K+L ) » I R , NUM ) 

IF ( CONOPT ( 15) • EQ« 2 ) CALL CUNVF" ( TMRREC (l • 1 )* STCHAS t 97+K+L ) • I R , 

1 NU M ) 

CALL CCNVERt TMOF ( I .,fl ), STCHAS ( IllOM2*M) ) +J+K + U , I R , NUM ) 

CALL CCNVERt TM t F ( I, M>, STCHAS! ( 128* ( 2*M ) ) *J*K+l ) , IR.NUM) 

CALL CCNVfc.R (TMBF t t»M ), STCHAS ( ( LA6+t2*M) ) + J*K + L), IR.fiUM) 

CALL CCNVERt STMROS t I ,M) , STCHAS 1 1 16A + J ?*«| )*K*I. ) , IR.NUM ) 

IF I CONCPT (15 1 . EO . 2) CALL CONVFR ( OOUT t I ) , STCHAS ( 1 66 *K + L ) , I R , NUM) 
IF (CONOPT ( 15). ea>:2) CALL CCNVERt STMRUS t I , II , STCHAS t 169*K*L » , I R , 
1 NUM ) 1 


• • • F /COPUT 0090 
* l4aPUT009i 
0 PUT 00 9 2 
OPUT 0093 
OPUT 0094 
nPUT 0 Q 95 
OPUT 0096 
OPUT 0097 
OPUT 00 9 P 
OPUT 0090 
OPUT 0 1 ID 
OPUT 01 01 
OPUT 01 02 
OPUTO 1 03 
OPUT 01 04 
OPUTO l 05 
OPUT 01 06 
OPUTO 107 
OPUTO 1 OR 
OPUT 01 09 
OPUTO MO 
OPUTO 11) 
OPUT on 2 
OPUTO L 13 
OPUTO I 14 
OPUT Oil 5 
OPUT0116 
OPUT 01 17 
OPUTO 118 
OPUTO 1 19 
OPUT 01 2D 
OPUTO 1 2 1 
OPUT; 01 2? 
OPUT 0123 
OPUT 01 24 
0PUTO125 
0PUT0126 
OPUTOi 27 
OPUT 01 28 
OPUTOI 29 
OPUTOI 30 
OPUT 013 1 
OPUTOI 32 
OPUT 0133 
OPUTOI 34 
OPUT 0135 
OPUT 01 36 
OPUT0137 

0PUT013R 
09UT0139 
OPUT 01 40 
OPUTOI 41 
OPUTO 1 42 
OPUT 0143 
OPUT 0144 
OPUT 0145 
OPUT 0146 
OPUT 0 14 7 
OPUT0148 
OPUTO l 49 
OPUT 01 50 
OPUTOI 51 
OPUTOT52 
OPUTOI 53 
OPUTOI 54 
OPUT 9165 
OPUTO) 56 
OPUT 0157 
OPUTOI 5* 
OPUT 0159 
OPUTOI 60 

OPUTOI 61 

OPUT0162 
OPUTOI 63 
OPUT 0164 
OPUT 0165 
OPUT 0166 
0PUT0167 
OPUT 0168 
OPUT 016° 
OPUTOI 70 
OPUT 0171 
OPUT 01 77 
OPUT 01 73 
OPUT 0174 
OPUTOI 75 
OPUTO L 76 
OPUTOi 7 1 
OPUTOI 78 
OPUTOI 79 


•f- ■ 

f ■ . 

i 


GO TO 32 


CONTINUE 
K*K> 108 
Ll-LH-1 

IF f MODI I ,4 I. tO. 01 L=9 
If* (MODI I*'t).C3.0) K = 0 
If (M00( 1,8) .EQ. 01 GO TO 1[7 
If n.EQ.MAX) GO TO 17 j 
GO TO 10 

CALL DVAR( TYPE* STCHAS *MLN*NUM * STRMT *LVAL * HVAl * VDL * TDAT A * NCODE ) 
ST CHAR ( 7 )=SUBT ( 8) 

STRMT (4) = SUBT ( 8) - 

If ( I • EG. MAX) Gil TO 10 
DO 15 N=L*325* 108 
STCHAS ( 90+N ) “BLANK 

ST CHAS (99+N)=BLANK ? ~ 

DO 18 K-l* 6 

ST CHAS ( 92+N+K )= BLANK / 

STCHAS( 1 0 1 +N+K )=RLANK ' * 

STCHAS ( 1 1 O + NtK ) = BLA(s)K 
ST CHAS ( 1 19 + N + K ) = BLANK 
STCHAS ( 1 28 + NfK ) “BLANK . „ 

STCHAS ( 1 37+N+K )= BLANK 

STCHAS! L46+N>K)=BLANK ... . 

STCHAS ( 155 +N+K)= BLANK 
STCHAS I i64+N+K)=BLANK 
STCHAS ( 173+N*K)=BLANK - .3“, 

CONTINUE =■■■.= 

CONTINUE : * : • - * 

K=0 

L-0 . ' * ------ ---i ,-. v - ... ; >. - 

CONTINUE 

If (CONCPTI 15) .ME. 2) 

ST SURD ( 5 ) =SU8T ( 3 ) . _ 

STSURD ( 4 )=SU3T (11 ) ‘ t 

DO 39 1=1*36 -- 

ST SMRY ( 36*** I )=SSPAST( I ) 

CONTINUE 

IR=0 * . 

NUM=A 

CALL CCNVER ( UMAX* ST SMRY (95 ) * IR *NUM) 

CALL CCNVER ( PEAKS ( 1 ) .* S T SMKY (98 ) *IR*NUM) 

CALL CCNVER ( APRECm . ST SMR Y(2C3)*IR*NUMi 
CALL CCNVERCAPRECm * ST SMR Y { 2 07 ) , I R * NUM ) 

IR= 1 
NUM=3 

CALL CCNVER (PHRO* STS MR Y< 131) * TP* NUM) 

CALL’ CCNVER (PHRS (1) * : STSMRY! 134), tft .NUM) 

I R=0 

CALL CONVE R ( SUM (1 ) * STS MR Y ( 167)* I P , NUM ) 

CALL CCNVER ( SUM( 2 ) * STSMRY ( 170 ) * I R» NUM ) 

GO TO 35 . . .. 

DO 31 1=1*3 

IR = 0 * r-r :- • ? ••• i.^'. ' 

NUM=4 

CALL CONVER ( P EAKS ( I J * STSMRY (93 4(2*1 ) ) * IK* NUM) 

CALL CCNVER ( A PR EC ( M f STSMRY (20t*(2* 1) )*IR*NUM) 

NUM=3 

CALL CONVER ( SUM( I ) * STSMRYT 165>(2* I ) ) * I R * NUM.) 

CALL CONVER CP HR S( I ) »STSMRY( 129* (2* I ) ) » IR.NUM) 

CONTINUE * ■ •• 

IR = 0 

NU M=4 ■■■■: . w ,.^ v 

NOM= l 2 • ' • - 

CALL CCNVER IDIFFS,STSMRYI 101) , IR,NUM) i ^ . 

CALL CONVER 1 01 FFP « STSMRY 1 137) « IR, NUM) 

CALL CONVER 1 1)1 FPP ,STSkPY( 21 1 ) , IR,NUM) r , . . 

IF CCONCPTI 15I.EQ.2) STSMRY (21U=0LANK • 

CALL CONVER (01 FFMP, STSMRY (103 ) , I R , NUM ) 

CALL CONVER ( 0 1 FFPP » STSMRY ( I 39 ) , I R , NUM ) 

CALL CONVER (DIFFR, STSMRY! I'. 5) t IK, NUM) 

CALL CGNVERIDIF FR 3 *S T SMRY ( 175) , I R * NUM) 

CALL CONVER ( 01 FFPR, STSMRY (209) , IR,NUM) 

IF ( CONOR T ( 1 5 ) . SQ.2 > S TSMRY ( 239 ) =BL ANK 

CALL DVARI T YPE , S T SMR Y, MLN , NOM , ST S T , LVAL , HVAL , VOL , TDAT A ,NCOOE ) 
DO 49 1=1,270 

MSVARYI 378M )=MSVSUP(II - :: . 

CONTINUE 

mi =3 - 

IF (CONOPT (IS). NE.2) GO TO 63 

DO 81 1—1*36 ♦ rf .' . * '* * ■ r . e ■ - »*•'.■: y. 

MS VARY ( 36+ 1 )=MSPASTf I ) 

continue -t ^ . . . . \ , 

MS VARD ( 5 ) =SUBT (5 ) 

MSVARDI 6 ) “SUBTI 6 ) - - ^ i.,,.;- •... 

MI =1 . . • ' 

nom=40 . . . „ , 

L*0 4 ^ :■ V - 

Ll-1 ' -v . - V • ■ . v : 


OPUTOl 80 
nPUToiat 
OPUTOl 82 
OPUTOl 93 
OPUTOl 84 
OPUT 0185 
OPUTOl 96 
OPUTOl 87 
OPUT 0189 
OPUT 0X99 
OPUTOl 
OPUT 0191 
OPUTOl 9? 
OPUT 0193 
OPUT 0194 
OPUTOl 95 
OPUTOl 96 
OPUT 01 97 
OPUTOl 98 
OPUT 01 99 
OPUT0200 
OPUT 0201 
0PUT0202 
OPUT 02 03 
OPUT 0204 
OPUT 02 05 
OPUT 02 06 
OPUT0207 
OPUT 02 09 
OPUT 02 09 
OPUT 0210 
OPUT 021 1 
OPUT 02 l? 
OPUT 02 13 
OPUT 02 14 
OPUT 02 1 5 
OPUT 0216 
OPUT 02 1 7 
OPUT 0218 
OPUT 02 19 
OPUT02 20 
OPUT0221 
OPUT 02 22 
OPUT0223 
0PUT0224 
OPUT 02 25 
OPUT 02 26 
OPUT 02 27 
OPUT 02 28 
OPUTC229 
OPUT 02 30 
OPUT 02 31 
OPUT 0232 
OPUT 02 33 
OPUT 02 34 
OPUT 02 35 
OPUT 02 36 
OPUT 023 7 
OPUT 02 3 8 
OPUT 023^ 
OPUT 0240 
OPUT 0241 
OPUT 0242 
OPUT 0243 
OPUT 02 44 
OPUT 02 45 
OPUT 02 46 
OPUT 02 47 
OPUT 02 48 
OPUT 02 49 
OPUT 0250 
OPUT 0251 
OPUT 02 52 
OPUT 02 53 
OPUT 0000 
OPUT 02 55 
OPUT 02 56 
OPUT 02 57 
OPUT 02 58 
OPUT 32 59 
OPUT 02 60 
OPUT 02 61 
OPUT 0262 
OPUT 02 63 
OPUT 0264 
OPUT 02 65 
OPUT 02 66 
OPUT 02 67 
OPUT 0268 






K=0 

MAX-MAXI 

MS VARY ( 55 ) =MSBD IC 
00 41 I - 1 1 MAX 
IR-il 
NUM=2 

CALL CONVER (MPDAY (LX i t 
00 43 M-l ? M I 
IR«|0 
NUM = 3 

CALL CONVER ( EMIFS f t ? M ) 
CALL CONVER (EMUZSt I * M > 
CALL CCNVtK(LMLZS{ l, 
CALL CCNVER ( FMGWS ( I i V ) 
CALL CCNVER { E MUZ C l I * M ) 
CALL CCNVLRI E.MS1AMC I f M 
CALL CGNVEKI EMBPNXI I $ M 
CONTINUE 
K-Ki+144 
LULU-1 

IF (MODI 1,41 .EO^Oy K=0 
IF (MOO ( I ♦ 4) • EQ. 0) L = 8 
IF i I MOD ( I ,8) .EC.O) GO 
IF !< I. EG. MAX) GO TO 45 
GO TO 41 

CALL DVAR ( TYPE-* MS VARY* 
IF U.EQ.MAX) GO TO 41 
MS VT ( 51 - SU B T ( 2 ) 

NS VARD< 8 ) =SU9 T ( 9 ) 

-DO 53 N= 1 » 434? 144 
M$VARY(90+N)= BLANK 
MSVARY(98+N)=BLANK 
DO |55 K = 1* 7 
MS VARY ( 91 4-N4-K) -BLANK 
MS VARY ( S9*NtK )= BLANK 

ms Vary ( 109 +N+K y - blank 

MS VARY! 117+N+K )-RLANK 
MS VARY ( 1 2 7 4- N ♦ K U BLANK 
M S V A R Y Cl 3 5 + Ni-K ) - BLANK 
MS VARY ( 145+MK ) -BLANK 
MS VARY ( 1534-N+KU f? LA N K 
MS VARY (163+N+K ) -BLANK 
MS VARY ( 17 UN+K)- BLANK 
.MS VARY ( 181+N+K ) ~ 8 L ANK 
■MSVARYI 1 8 9 4 - N 4 - K )- BLANK 
-MS VARY ( 1994-N + K) = BLANK 
MS VARY l 2074-N4-K) = BLANK 
CONTINUE 
CONTINUE 
K= 0 
L-0 

CONTINUE 
CALL PL TEND ( 0) 

RETURN 

END 


MS VARY (9 14ML ) , IR , NOMI 


f MSVARY { 91t( 2*M ) 4-K4-L ) ? I R ? NUM ) 

9 MS VARY ( 1094-1 ?*MUK4-L)f 1R?NUM) 

, MS VARY ( 1274- ( IRfNUM) 

VMS VARY ( 1454-1 7$M) mill IRfNUM) 
t MS VARY I 1994-1 2*M UK>L1 I R , NUM ) 

1 1 MS V AR Y { 1814- <2*MUK4-L) « I P * NUM ) 
I , MS VAR Y tl63t(2*N) >K4-l ) v l R, NUM) 


TO 45 

MLN *NOM t MSVT f LV AL t HVAL rVLtTDATAfNCODE ) 


OPUT0269 
OPUT 70 
OPUT 02 71 
OPUT 02 7? 
OPUT 02 73 
OPUT 02 74 
OPUT 0? 75 
OPUT 02 76 
OPUT 32 77 
OPUT 0278 
OPUT 02 79 
OPUT 02 80 
OPUr02fll 
OPUT 0?. 82 
OPUT 02 83 
OPUjn? 84 
OPUT 02 35 
OPUT 02 86 
OPUT 02 87 
OPUTC288 
OPUT 02 89 
OPUT 0290 
OPUT 02 91 
OPUT 029? 
OPUT 0293 
OPUT 02 94 
OPUT 0295 
OPUT 02 96 
OPUT 02 97 
OPUT 02 9 3 
OPUT 02 99 
OPUT 03 00 
OPUT 03 01 
OPUT 03 02 
OPUT 03 03 
OPUT 03 04 
OPUT 0305 
OPUT 0306 
OPUT0307 
OPUT 03 08 
OPUT 03 09 
OPUT 0310 
OPUT 0311 
OPUT 0312 
OPUT 03 13 
OPUT 03 14 
OPUT 03 1 5 
OPUTQ316 
OPUT 03 17 
OPUT 0318 
OPUT 0319 
OPUT0320 
OPUT 03 21 
OPUT 0322 
OPUT 0323 



SUBROUTINE AT TEN 



CUM 

iflN/: GS P 0 / W ORK 

. r, sp i 

.UNI TN 
.MAX P T 

, I 2250 

t I AIN 

t (1ARE A 

j • 

1 l 

NULLV 

, IGOSC 

, 1 PTNOW 

,|PT 

t 1 SYM 

•RWORKI 


2 

I GOS 4 

, IbOSS 

1 1 GO S 6 

. I DSP 

It RU 

t HSPH 

• HSPL 

j. . 

3 

VSPH 

♦ VSPL 

t NOUT 

,Nxn 

t NYU 

fXSIZC 

•YSIZF 


. 4 j 

XLL 

? YLL 

, XUR 

♦ YUR. 

v XT IC 

tVTIC 

• X OVAL 


5 

YDVAL 

, IKE Y 1 

• I KEY 2 

t l KEY 3 

t IKEY4 

t AX 

it BX 


6 

AY 

? B Y 

t YLPOS 

i 





7 

LOGXSW 

, LtIGYSW 

, n p r f 

, NRGF 

,ERKHO 

• FA 

!• F B 


> 8 

FC 

t GMDOb l 

, GSP I N 

tOUM 

, IRECAL 




I j . ' 

II ■/ 


LOGICAL* 1 GSP IN, 0UM<2) 

RE AL*8 WORK (36) 

1NTEGEK*4 INTAR (10) « GSP 1 t UN I TN i NULL V ( l ) • OARtrA 

LOGICAL*! F A , Fdf TC , G MODE l » GSPT N 

LOGICAL*! LCJGXSW, L OGYS W , NPT F ? NRGF , FFRMD 

REAL** RN T ARM 1 0 ) f XT I C( 6 ) * VT IC ( 6) , XOVALl 6) , V0VALI6) 

EQUIVALENCE! INTAB ( L ) ,RNTAR< 1 ) , WORK ( THH I SYM* I CODE) 

ND3 = I ABS ( I DSP ) * 1 
CALL E N ATN ( I ATN • 0 1 2 £ • 34 1 
5 CONTINUE 

CALL I NCL 1 1 GOS 5 , N UL L V * I KEY I j 
C REQUEST ATTENTION 1 ATI ON 

10 CALL RQATNMATNf !CUUE # 2f INTAR*0f28t34l 
I F ( I COD b ) 20 « L 0 v 30 
20 CALL TMGSP ( GSP 1 ) 

HRITEINOUT, 1000) 

STOP 

22 RETURN 
C 

30 CONTINUE 
' IF ( I CODE- 28 ) 35 *32 *35 
32 GMODE 1= •NOT.GMOOEl 

WRITE ( NOUT y 1020) GM 00 El - 

GO TO 10 i“. ■ : --- 

35 CONTINUE 

IF ( INTAR ( l ) •fcO. IG0S6 ) GO TO 200 
! IF (INTAP (1) • NF • IG0S5 )G0 TO 10 
IF ( 1 NT AR ( 2 ) .EQ. IKEYl ) GO TO AO 
IF 1 I NTAR ( 2) .EQ. I K E Y 2 ) GO TO 400 
IF ( I NT AR ( 2 ) .EQ. I Kfc Y3 l GO TO 100 
C 

40 CONTINUE ’ 

CALL OS ATN ( I ATN • 0 * ,23 *34 ) 

CALL OMIT ( I GDS5 * NULL V? I KG Y 1 ) 

RETURN 

C 

C BRING UP PLOT DICTIONARY* THE DICTIONARY CAN ONLY BE REQUESTED 
C FROM THE LATEST DISPLAY 

C 

100 CONTINUE 

CALL OMIT { IGDS5) , - 

CALL DM IT ( IGDSC ) 

L03 CALL l NCL Cl GDS6 ) 

ND2=MIN0( ND3f 1000 ) 

ND 1= 1 

1 IF (ND3—1000 ) 1 0 5 » 105, 104 : - 

104 CALL I NCL ( IGDS6) - n 

CALL INCL( IGUS6 f - 3 » NULL V) 

105 CALL I:MCL( I GDS6*-2 • NULL V) 

CALL l NCL ( 1GQS6,- L * NULL V) 

DO 110 I =ND1 1 ND2 

110 CALL 1 NCL ( I GDS 6 1 I » NULL V ) 

c • GO TO 10 ; . . v ..„ T . . . 

C PjLOT DICTIONARY ATTENTION ROUTINE . V 

20d CONTINUE 

I F ( I NT ARC 4 ) ) 205 » 205 • 300 
2Z5 I FT I NT ARi 4) .EQ. -VIGO TO 10 . 

IF C I NT AR ( 4 ) .EQ. -3)G0 TO 250 
IFUNTAR(A) .NC. -2)G0 TO 10 
210 CALL OMIT ( IGDS6 ) 

CALL INCH IGDSC) *• / . . V • 

CALL INCH f Gi)S5 ) i 

CALL 1 NCL ( I GOS 5 , NULL V , I KE Y3 ) 

CALL I NCL ( IG0S5tNULLVf IKEYl ) . . ... _ 

GO TO 10 , 

C BRING UP PLOT SELECTED IN PLOT DICTIONARY 

300! CONTINUE 

I F ( I NT AK ( 4 ) -ND3 ) 3 1 Of 21 Of 310 
310 CONTINUE 

CALL BUFiN' 1 2250, I NT AR ( 4) , I RC ) > 

CALL INCL(IGOSC) 

I FT IRC ) 320,33 3* 320 

. 320 WRITE (NOUT, lOlOMRC ' r— -i : 

GO TO 10 ; V \ 


as* 




AfTNOOT! 

ATTNOjA? 

ATTNQ003 

ATTN03 'A 

ATTN0505 

ATTNOOO* 

ATTN3997 

4TITN0D08 

AT|IN-!J19 

ATTN 5J l 3 

ATTNOOl I 

AT.TN0012 

ATITN0013 

ATTNJ n 14 

ATTM0D15 

ATITNOOtb 

AITN0017 

ATTN0319 

ATTNOOl 9 

ATTN0020 

ATTN 302! 

ATTN0022 

ATTN 59? 3 

ATTN0024 

AT|TN0025 

ATITN0026 

ATTN0927 

A.TTNJ028 

ATTN GO 20 

ATTN 003 9 

ATjT NOD 31 

ATTN003? 

ATTN0033 

AT.TN0034 

ATTN0035 

ATTN0036 

ATTN003 T 

ATTN 00 39 

ATTN0039 

ATTN0040 

ATTN00A1 

ATT MOCK.? 

ATTN0D43 

ATTNOOAA 

ATTN JO A 5 

ATTN00A6 

ATTN 00 4 7 

ATTN0048 

ATTNOOA9 

ATTNOOBO 

ATTN0051 

ATTN035? 

ATTN0053 

ATTN0059 

ATTN0055 

ATTNOOAfe 

ATTN0057 

ATTN0058 

ATTN0059 

ATTN006 J 

ATTN0061 

ATTN0062 

ATTN0063 

ATTN006A 

ATTN0065 

ATTN0066 

ATTN0067 

ATTNOOftfl 

ATTN0069 

ATTN 0070 

ATTN0071 

ATTN 007? 

AT1N0073 

AT7N007A 

ATTN0075 

ATTN0076 

ATTN0077 

ATTN0078 

ATTN0079 

ATTN 00 80 

ATTN008T 

ATTN0082 

ATTN0083 

ATTN 0034 

ATTN0085 

ATTN0086 

ATTN0087 

ATTN008P 

ATTN0089 




r 


mtmm 


lii-ihiiiirin iiiiif ! 




i: ! 


\i 


vM 


C~\ 


: I 



S j;l 


330 CAUL I NCL ( IGDS5,NULL V, IKEY2I 
i GU TO 10 f 


RETURN FROM A RECALLED DISPLAY 


400 CONTINUE 

CALL BUF l N t 1 2250 , ND3 « I RC) 
IF ( IRC ) 320 » 100 » 320 


BRING UP NEXT PAGE OF DICTIONARY 


250 CONTINUE 

CALL 0MITUGDS6) 

DO 255 I«NDktND2 
255 CALL OMIT( IG0S6.I fNULLV) 

I F ( ND2 *FQ • ND3 )G;0 TO 103 
ND1=N02+I 

I F ( I ND3-ND2 ) -20) 265 » 270 t 270 
ND2=ND3 
GO TO 104 
270 ND 2 sN 02 + 20 
GO TO 104 

.1000 FORMAT! tATTEN: PROGRAM TERMINATED BY ••TERMINATE JOB M 

1910 FORMAT ( 1 ^♦♦BUFFER WRITE FAILED - R.C. * SZB) 

1020 FORMAT ( • *GM0DE1 CHANGE «»Z2) 

ENU 


2 P 5 


OPTION* ) 


ATT N0090 
ATTN 00 91 
ATTN 00 9 ? 
4TTN0093 
ATTN CO 9 4 
ATTN 00 9 5 
ATTN 00 96 
ATTN0097 
ATTN 0099 
ATTN 00 9 ° 
ATTNOIOO 
ATTN0101 
ATTN0102 
ATTNOJ 03 
ATTN 01 04 
ATTN0I05 
ATTN0106 
ATTN«vD7 
ATT *1*1 08 
AT T NO 1 09 
ATTN01 10 
ATTN 01 it 
ATT V 01 12 
A ITN0113 
ATTN 01 14 
ATTNOl 1 5 




l i 

i 

N 



HO 14 TITLE • • 

H014CG START 

* WRITTEN BY C G HOOKS 


IBM HUNTSVILLE 


CALL BCDWD (WORD, N1, N2, ... > 

BCD WO{ CREATES WORD FROM THE DEC IMAL EQUI- 
VALENT Of- CHARACTERS IN Nl, N2 , ETC* 
- Nl WILL BE THE P IK ST CHAR ALTER LEFT 
ADJUSTED. FUR FULL WCRL‘5 IHb NUMBER 
OF CHARACTERS MAY BE 1 TO A. FOR 
DOUBLE PRECISION 1 TO 8. THE WORD 
WILL ONLY BE .ALTERED FOR AS MANY 
CHARACTERS AS APPEAR AS ARGUMENTS 


ENTRY 
US-I NG 
BCDWD BC 

• 8£ 

GO STM 

L 

LOOP L 

: MVC * 

r TLJR 

f ‘ ' * - BC 

: A 
A 

BC 

FINISH LM 
SR 
MV I 
BCR 

ONE DC 
FOUR DC 
ENO 


BCDWD 
'•*,15 
lb, GO 
X 1 06 • 

CL5 1 BCDWD • 
14 , 12 » 12 ( 13 ) 
11,0(0,1 ) 
10,4(0* 1 ) 

C(li, 111, 3 « 101 
10, MO 
4, FINISH 
1 If ONE 
1,F0UR 
15, LOOP 
14,jl2, 12(131 
15,15 

121-131* X''FF' 

15,14 

fU* 

F f 4* 


P. 11 = ADDRESS OF WORD 
RIO® ADDRESS OF CHARACTER 

SET CONDITION CODE 

BRANCH ON LAST ARGUMENT TO FINISH 


BRANCH FOR ANOTHER CHARACTER 


01400001 
01400002 
0140^003 
01400004 
01400005 
01 4000 0^ 
01400007 
01400008 
OL4:*?CO<5 
01 40 CO 10 
01400011 
01400017 
01400013 
01400014 
01400015 
014000 L6 
0140 0017 
01400018 
01400019 
01400020 
01400021 
01400022 
01400023 
01400024 
01400025 
014000 26 
01400027 
,01400028 
01400029 
01400030 
01400031 
01400032 
01400033 
01400034 
01400035 
01400036 


SUBROUTINE CHANGE I Y. OPY I 

RE/ W srORCS , OATA Y IN 6 fHG ORDER JAN. (YEAR 21 TO SEPT ( YEA® 2) 
FOLLCRhD BY OCT. (YEAR 1) TO DEC. (YEAR l). EFH. 29 IS PLACED 

CHANGE REARRANGES THE DATA ARRAY TO STORE THE DATA IN NORMAL 
SEQUENCE. OCT . I Y EAR 1) 10 SEPT .(YEAR 21. 

J * l 

DU 10 1=279.365 

XIJI = Y(l) i : ■ . ■ . ■ ■ ' 

10 J = J ♦ l 
K = 365 

J a 273 I [ ■ , 

IFCDPY .Nb. 366) GO] TO 15 

IF LEAP YEAR MOVE FEB. 29TH 
TEMP = VI366) * 

K = 366 
15 CONTINUE 

00 20 1=1,214 ' 

YIK) = YIJ) ( . 

K = K - 1 ! ■ 

20 J = J - l - 

IF t.DPY .EQ. 366) YI152) = TEMP 
00 25 1 = 1,59 . -• - * 

J = I ♦ 92 . 

25 YU) = Y( I ) 

00 30 1=1,92 

30 YII) = XIII , . 

RETURN 

■ END : . - ■ ■ -- - ••• 
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SUBROUTINE 1 CCNVER ( X« A. I R» NUM ) 

REAL CON (24) 

DATA CO N/ 1 OOOOO. , 8. , 1 0000. >7, ♦ 1000. *6. *100. ♦ 5 . * 10.*4. f l. * 
12 . » . 01 * 2 . * . 00 l f 2 . *.0 001 * 2 .* . 00001 * 2. « .000001 * 2.7 
INTEGER *4 A ( 2 ) * B ( 2 ) * IR * NUM 
DATA ft/ 2*4H / 

EQUIVALENCE (Z* IX) 

Z* X . 

F*Z 

IF ( 1R.EQ. 1 ) F = I X 
IS =64 

IF (F.LT.O.O) I S= 96 

IF ( IS.EQ.96) F=-F * 

M = 2 

IF I ( IR .EG. 1 ) • AND. ( NUM.LE.4) ) H=1 
00 9 1=1. M 
A( 1 1*81 I ) 

CONTINUE 
L* 1 

IF { ( F-IOOOOO. ) .GE.O.) GO TO 15 
L* 3 

If (IF- 10000.1. GE.O. ) GO TO 15 
L*5 ' ' * 

IF I IF- 1000.1 f GE. 0. ) GO TO 15 ' • 

L* 7 

IF f(F-100.).GE.0.) GO TO 15 
L s 9 

IF ( ( F— 10. ) • GE.O. ) GO TO 15 , ^ 

L= 1 1 

IF ( ( F— l.).GE.O.) GO TO 15 

IF <((F-0.) .EQ.O.) .AND. ( IR .EQ.D) GO TO 23 
L= 13 

IC NT=CON ( L + 1 ) 

CALL I SCHAR ( I S * 1 * A) 

NUMA=NUM+2 
00 10 1=2* NUMA 
J2=0 

J1=F/CCN(L) 

F-F-Ji*CCN(L) 

J t = J 1 + 2 40 

IF ( ( ( l CNT- I ) • LQ. 0 ) • AND • ( IR .EG .1 ) ) GO TO 12 
IF ( ( ICNT-I ) .EO.O ) J 2 = 7 5 
IF (J2.EQ.75) CALL I SC HAR U 2* I * A) 

IF (J2.EQ.75) 1=1+1 

CALL I SCHAR ( Jl* l , A) 
t = L ♦ 2 

CONTINUE ‘ 

GO TO 12 
J 1=240 

CALI. IS CHAR ( Jl * I* A ) 

RETURN ‘ 

END ..... .. , .1 , * . , • 


3. t .1 i 


CNVROOOt 

CNVK0002 
CNVROOOI 
CNVR0004 
CNVR0095 
CNVR0006 
CNVR 00 07 
CNVR0008 
CNVR0009 
CNVR 00 l 0 
CNVROO 11 
CNVR0012 
CNVROOn 
CNVR 00 14 
CNVR0015 
CNVROO 16 
CNVROO l 7 
CNVROOia 
CNVROO 19 
CNVR 00 20 
CNVR 00 21 
CNVR 0022 
CNVR 00 2 3 
CNVROO 24 
CNVROO 25 
CNVR 00? 6 
CNVR0027 
CNVROO 28 
CNVR 0029 
CNVR0030 
CNVR0031 
CNVR0032 
CNVROO 33 
CNVR 00 34 
CNVR0035 
CNVR 0036 
CNVR0037 
CNVR 00 38 
CNVR 0,039 
CNVR0040 
CNVR 0041 
CNVR 0042 
CNVR0043 
CNVR 0044 
CNVROO 45 
CNVR 0046 
CNVR 00 4 7 
CNVR0048 
CNVR0049 
CNVR 0050 
CNVR0051 
CNVR0052 


fill® 


guuo o ou uuo 


SUBROUTINE CORBEL IS USfcO TO CALCULATE CORRELATION COEFFICIENT 
XI - ARRAY 1 , X2 = ARRAY? , IV = NO •OF VARIABLES IN ARRAY 

ANS 3 ANSWER OF CORRELATION COETF l C I ENT 

SUBROUTINE CORREL 1X1, X2* IV* ANS I 

01 ME NS I ON XL (11* X 2 ( 1 J 

REAL** XI* X2* TXl* TX2* MXl * MX2 * 0X1 1 0X2* AXl* AX2 * AX3* ANS 


AX1 
AX2 
AX3 
OX l 
0X2 
MXl 
MX2 
TXl 
TX2 


0.0 

c.o 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 


DETERMINE THE MEAN OF ARRAY XI* X2 

DO 100 I = 1. IV 
TXl = TXl ♦ XI I I ) 
too TX2 - TX2 + X 2 ( 1 I 
MXl = TXl / IV 
MX 2 = TX2 / IV 

DO 101 I = It IV 


DX1 = XH I ) 
0X2 = X2( I ) 
AXl = AXl + 
AX2 - AX2 ♦ 
101 AX 3 = AX3 ■+ 
ANS = AX 3 / 
RETURN 
END 


MXl 
- MX2 
CX 1*0X1 
CX2*DX2 
0 X 1 * 0 X 2 
SORT (AXl * 


AX2 ) 


CORR 00 01 
CORR 0092 
CORR 0003 
CORROO 3* 
CGRR0005 
CORR 00 06 
CORR 000 7 
CORK 00 OR 
CHRR0009 
CHRP 0010 
CORROO VI 
CORK 00 12 
CORROO 13 
CORPOOt* 
CORRjOOI s 
CORK 00 16 
CORROO l 7 
CORROO 18 
CORROO 10 
CORR 0020 
CORR 00 21 
CORROO 2? 
CORK 00 2 3 
CORK 0024 
CORR 00 25 
CORK 00 26 
CORR 0027 
CORR 0028 
CORR 0029 
CORR 0030 
CORROO 31 
CORRO032 
COR BOO 33 
CORR 003* 
CORK 0035 
CORRO036 
CORR 0037 





SUBROUT INF OAYNXTUMY* DPY) 

C DETERMINES NUMBER UF NEXT DAY UF THE YEAR 
INTEGER UAYtOPY 
DAY « DAY ♦ L 
IHCAY .EQ. 366) DAY = l 

IF ( OAY .EQ. 60 •AND* DPY .EQ. 366) DAY = 366 

I iF I DAY .EQ. 367) DAY = 60 

RETURN 

END 


OYNXOOOl 

DYNXOOO? 

0YNXOOO3 

dynxoota 

DYNX0005 

DYNX0036 

OYNXOOOT 

DYNX0008 

DYNX0009 










mmm 










(i 


KWD * It m 


|,;1 


u 


, SUBROUT I NF DAYOUT ( VDCY , MEDWY, DPY ) 

C PRINTS TABLE UF DAILY VALUES 

Dl ME NS I CN MEDWY( 12) , VDCY ( 366 ) ,VDMD< 1 2 ) 

. INTEGER DATE, DAY, DPY 

100 WRITE 1 6,1) 

l FORMAT { 7X , ' DAY * , 7X, 'OCT* ,5X, *NOV* , 5X , • DEC* , 5 X, • J AN • , 5 X , • FFB • , 
15X , * MAR • , 5X » ' APR • ,5X,'MAY*»5X» * JUNE* »4Xt * JULY* ,4X, • AUG* ,SX» 

2 ' SEPT ' ,8X, 'ANNUAL* ) 

MEDWY ( 3 ) = 0 

DO 104 CATE = 1,28,1 

IF I MOD ( DATE , 5 ) .NE. 1) GOTO 102 

DO 101 KMO =1,12 . 

I DAY = MEDWY (KMO) *• DATE 

101 VDMDIKMO) = VCCY(DAY) 

1 WR I T E ( 6 ,2 ) DATE, VD.MO ( 12 ) » ( VDMD (KWD ) , KWD=l,H| 

2 FORMAT 1 1 HO, 3 X, 16, 3 X, 12 F 8.1) 

I GO TO 104 

102 DO 103 KMC = 1,12 

DAY = MEDWY ( KMO ) «• DATE 

103 VDMD (KMO I = VDCY(DAY) 

WR I TE ( 6 1 3 ) DATE »V0M0(12)» ( VD.MDiKWO ) t 

3 FORMAT ( IX , 3X, 1 6 ,3 X, 1 2F8 .1 ) . 

104 CONTINUE 

IF I DPY .NE. 366) GO TO 106 

DATE = 20 ■ 

TEMP = VDCY ( 60 ) 

VDCY ( 60 ) = VDCY 1366) 

DO 105 KMO =1,12 

I DAY = MEDWY (KMO) *■ DATE " 

105 VDMO(KMO) = VDCY(DAY) 

WR I T E ( 6 , 3 ) DATE, VDMD ( 12), (VDMD(KWD) , KWD=1,11> 

GO TO 107 

106 CONTINUE . 

WR I T E ( 6 , 4 ) VDCY (302) , VDCY (3 32 ) ,VDCY (363 ) » VDCY ( 29 ) , VDCY 188) , 

1VDCY( 1 19) , VDCY( 149), VDCYl 180) , VDCY ( 210 ) , VDCY ( 24 1 > , VDCY ( 272 ) 

4 FORMAT ( 1X.7X.2H29, 3X,4F8.1,8X,7F8. 1) 

107 CONT INUE . 

108 WRITE (6, 5) VDCY1303) .VDCYI334I , VDCY <364 1, VDCY < 30 ), VDCY < 8.9) , 
1VDCYU20) , VDCY! 150) ,VOCY( 13 1 ) , VDCY ( 21 1 ) , VDCY ( 242 ) , VDCY 1 273 ) 

5 FORMAT! IX, 7X, 2H30.3X.4r 9. I, 8X, 7F8. 1) 

WRITE (fa, 6) VDCY (3 04) , VDCY (365) ,V0CY(31 ), VDCY ( 93 J , VDCY ( 151) , . 
IVDCY (212) , VDCY ( 243 ) 

6 FORMAT ( IH/ » 7X , 2H3 l , 3 X, F8. 1 , 3X , 2F8. 1 , 8X, F8. 1,8X,F8.1,8X,2F8. 1 ) 
MEDWY! 3) = 365 

IF I DPY .EQ. 366) VDCYI60) = TEMP 

RETURN 

END 


I® 


ORIGINAL TAGEIS 

Qf POOH QUALITY! 


dyotoooi 

DYOT 0002 
DYOT90D3 
OVOT 0004 
DYOT 0005 
DY0TC006 
DYOT 0007 
OYOT3C08 
DYOT 0009 
DYOT 00 10 
DYOT 0011 
DYOT 0012 
DYOT 3013 
DYOTOQ14 
DV0T0015 
DYOT 00 16 
DYOT 30 1 7 
OYOT0018 
DYOT 0019 
DYOT 00 2D 
DYOT 0021 
DYOT 002? 
DYOT 0023 
DYOT 0024 
DYOT 0025 
DYOT 0026 
OYOT0O27 
DYOT 0028 
DYOTC029 
DYOT 0033 
DYOT 0031 
DYOT 0032 
DYOT0033 
DYOT 003 4 
DYOT0035 
DYOT0036 
DYOT 003 7 
DYOT 0033 
DYOT 3039 
DYOT 004.3 
DYOT 0041 
DYOT 304? 
DYOT 004’ 
DYOT0044 
DYOT 0045 
DYOT 0046 
DYOT 0047 


B-43‘ 


SUB RCMJT INc niCTRY < TEXT ) 

COMMGN/GSPD/WORK ,G$Pl » UM l T N $ 1225*5 


NULLV 
IGOSh 
VSPB 
XLL 


# 1GOSC t IPTNDWfMAXPT 
v I G0$5 , IGDS 6 , 1 -OS P 
tVSPL ,NUUT ♦ NXL/ 

9 YLL t X UR tYUF 


t IPT 
tRU 
9 N Y I) 

, X T I C 


YDVAL « I Kb Yl ,IKEY2 ,IKCY3 ftKEY't ,AX 


AY 


f BY 


V T AT N f PART A , 
, ISYM , R WORK 1 * 
9 HSP 3 fHSPL • 
9 X S I 7 E tYSIZ'F 9 
9 YT JC 9 XDVAL , 
fBX , 


t E RRHI) 9 HA 
f I R t C A L 


C 

c 

c 


> PB 


tYLPUS . . 

L GGX S W 9 LOG YS W 9 N P T P , NR G F 
PC tOMOlJb 1 9 G SPIN 9 DUM 
LOGICAL *1 GSPlNt i)U‘T<2> 

REAl *4 XT I C ( 6 ) 9 YT IC ( 6 ) 9 XOVAL ( 6 ) t YD V AL t 6 ) 

INT£GER*4 UNI TNYHAKFAt NULLV ( l )- f GSP.l 
LOG I CAL* 1 P A , F B 9 F C 9 G ML) 0 C 1 1# G S P I N 
LOGICAL*! LOGXSWt LOGYSWfNPTFtNRGF, ERR HD 
LOGICAL*l LlNE<49)/47*‘ •/ 

LOG I C AL* L TEXT ( 72 ) 

RE AL*8 WORK ( 16 ) 
v EQUIVALENCE ( RWORK 1 9 I ABSDP I 

CREATE DICTIONARY ENTRY 

1ABSDP=IABS( IUSFS+1 * 

-IF*(IOSP’)2029 205f205 *” ... — v <. 

202 LINE! l)=TPXT( i) 

LINP(2)=TEXT<?) 

Li NE ( 3 ) =TE XT ( 3 ) 

OH 203 I = 4 ?47 . ... 

203 L l NE ( I ) =L I NE { 49 ) 

go to 215 ; . ‘ 

205 00 *210 1=1 9 47 ■ ~ 

*2 LO LINE (I ) = T£.XT II ) 

215 .CALL PTEXT(TG0So,LlNE943,lABS0P9NULLV92,0*,YLP0S) 
CAliL_EXEC(IG0S6) 

_• VLP0S=YLP0S-1 • 5*VS°L - 
> IFIYLPOS .LT. 376.)YLPOS=RU-2.5*tfSPL 

,rfturn 

■ END 


DICTOOOl 
01 C T 00 0 2 
OICTtOOO 3 
OIC TOC 04 
0 1 CTO 305 
DICT0006 
OICTOOO? 
DICTOOOS 
DlCt 0 C 3 Q 
OICT0013 
OICTOOU 
0ICT0312 
DICT 00 13 
DIC TOO 14 
0ICT0015 
~ C. TOO 16 
CTO017 
C T 0 0 1 8 
ictooio 
ICT 0020 
ICT002L 
DICT 0022 
DICT3023 
DICT 0024 
DICT0025 
DICT 00 26 
DIC TOO 2 7 
DICT0028 
D I CT 0029 
DICT 0030 
DICT 00 3 l 
DICT 0032 
DICT0033 
DICT003A 
DICT0035 
DICT 0036 
DICT0037 
DICT 003 3 


DI 

DI 

01 

01 

DI 

DI 


SUBROUTINE: DLPD( IPAR f MLN*NOM f GPAR,NCQPE) 

I NT EG E R * V TYPC/1 7, L V A L ( l ) / l / • H V All i I / l / « VOL /l / 1 T D A T A / 1 / 

IN TEGER *4 I P ARI 192 ) 

INTEGER *4 OPART 32) 

CALL DV ART TYPE, IPAK, MLN t NON , DP AR t L V AL , H V AL f VDL t TO ATA , NCHOE) 

RE I URN 

END 


DLPOOOOl 
DLPO DO 02 
OLPnOOOO 
DLPOO0O4 
DLPOOOOL 
OL POO 006 
DLP00007 







TITLE • BDAM DATA SET READ ROUTINE • 
f EJECT 

DCB EQU 2 

AREA EOU 3 

BLOCK EUU 4 

DSREAL) SE TUP 12 • PAM- 1 1 

i LM DCB, BLOCK, OCRtll GET l/P PA RMS i- 

' v ■ ■ 1 EJECT ' ; .1" ; 


* . 

** . 

DSRET 


READ DATA BLOCK FROM APPLICABLE DATA SET 

READ R DEC 8,0 1 , (DCB) , ( AREA ) » 1 $ * , 0 » LB. LOCK I READ BLOCK OF DATA 
SPACE 3 


WAIT ON READ TO COMPLETE 

WAIT ECB=RDECB 
TM RDECB+ 1,255 

BZ DSRET 

SPACE 3 

ABEND WITH A DUMP 

ABEND 37, DUMP 
SPACE 3 

RETURN TO CALLER 

FREEUP (14,12) rt, RC-0 
END 


WAIT ON READ TO COMPLETE 
WAS THERE AN ERROR? 

NO, GO TO RETURN 


DSRD0001 
DSRDOOO t 
DSRD0003 
0SRD0304 
DSRDOO OS 
DSRD0006 
DSHD 0007 
DSRDOOOft 
QSRD0009 
OSRDOOIO 
nsRoaon 
DSR00012 
DSRDOO 13 
OSRDOO 14 
DSRDOO IS 
DSRDOO 16 
DSRDOO l 7 
DSRDOO IB 
DSRD0019 
DSRD0020 
OSRDOO 2 l 
DSRDOO 2 2 
OSRDOO 23 
DSRD0024 
DSRDOO 2 5 
OSRDOO 2 6 
DSRDOO 2 7 
DSRD0023 
DSRDOO 2 9 
OSRDOO 30 




Qf POOR QXJAUTY 



TITLE 

•HYDROLOGY DATA BASE 

BLK 

EQU 

2 

COUNT 

EOU 

5 

AREA 

EOU 

.'6 

BLANKS 

EQU 

7 

DSUPDJ 

ft 

SETUP 

EJECT 

12,PARM=H 

♦ ft 

A 

OPEN DATA SET TO BE UPDATED 


OPEN 

t BASEDCB, (URDAT)) 

ft - 

EJECT 

ft* 

ft 

SETUP 

fO READ PAGE OF DATA 

READ 

EQU 

ft ! - 

L 

K2 , Z ERO 


ST 

R2, NCODE 


LA 

ARFA * I POUF 


L 

BLANKS, BLANK 


L 

COUNT, F500 i. : 


BLIKARFA 


♦ 

ft* 
♦ : 


*♦ 


* 

ft*' 

♦ 


EQU 
ST 
LA 
BCT 
SPACE 


BLANKS* Of AREA) 
AREA, 4( AREA) 
COUNT, BtK AREA 
3 


READ PAGE OF DATA 

. CALL DSREAD, if B ASE OCB, IPBUF, BLOCK ) 
i EJECT 

DISPLAY PAGE OF DATA BASE FOR POSSIBLE UPDATING 

CALL DVAR, (TYPE, l PAR ,MLN , NOM, OP AR, L VAL ,HVAL, VDL , TDATA , NCODE ) 
EJECT 


WRITE UPDATED PAGE 


p 


DATA BASE 


CALL DSWRT, (BASEDCB, IPBUF, BLOCK) 
SPACE 3 


♦ 

♦ 

RET 


NEXT 


TERM 


Lf 

s 

BZ 

S 

BZ 

S 

BZ 


k 2, NCODE 
R2 , F 100 
NEXT 
R 2, GNE 
TERM 
R2 , GNE 
LAST 


DETERMINE STATUS 4 

CONTINUE PAGING 
TERMINATE UPDATE 
BACK PAGE 


RETURN TO CALLER 
ECU * 

FREEUP ( 14,12) ,T, RC- 


L 

A 

ST 

B 

L 

ST 

CALL 
CLOSE 
B 


READ NEXT BLOCK 


LAST 

L 

R2, BLOCK- 


♦ ■ 

S 

R2 , ONE 



BNM 

L ASTI 



L 

R 2, ZERO 

L/ 

^STl 

ST 

R 2 , BLUCK 



B 

READ 

* 


EJECT 


ft* 

CONSTANTS AND WO 

fti 




TYPE 

OC 

F*3 f 

MLN 

DC 

F* 80* 

NOM 

DC 

F 1 20* 

LV AL 

DC 

F • 0 1 

HVAL 

DC 

F 1 0* 

VDL 

OC 

F»T2* 

TDATA 

DC 

F • 

NCODE 

DC 

F*0 # 



OC 

F • 0 1 

BLOCK 

EQU 

♦-3 

BLANK 

-DC 

C rr • 

BASEDCB 

nca 

DSORG=DA 

F500 

DC 

F»500* 

ipRur 

OS 

50 OF 

IPAR 

CQU 

IPBUF 

OPAR 

EQU 

IPBUF 

ONE 

DC 

F* !• 

ZERO 

OC 

F 1 0 • 

F 100 

DC 

F 1 100* 



END 



R2, BLOCK-1 
R2 , ONE 
R2 , BLOCK- 1 
READ 

R2 ,F ICO 
R2 i NCODL 

DVAR, (TYPE, I PAR, ML N, NOM, OP AR,L VAL, H VAL , VDL, TDATA, NCODE) 
(BASEDCB) . - 

RET TERMINATE 


READ LAST BLOCK 


AREA 


nsupnooi 

D SUP? DTP 
OSUP DO 03 
DSUP 0004 
OSUP DO 05 
DSUP 00 06 
n sup oo 07 
DSUPOOOS 
DSUPOO09 
D SUP 00 10 
DSUPOOll 
OSUP0012 
0SU°00 1 3 
DSUP0D14 
DSUPG015 
0SUP0016 
DSUP3017 

osup ooia 
nsupooio 
DSUP 0020 
DSUP002I 
DSUPJ02? 
0SUP0023 
DSUP DO 24 
DSUP0025 
D SUP 0026 
DSUP 00 2 7 
DSUP 00 2 8 
DSUP D029 
DSUP 00 30 
0 SUP 003 I 
DSUP 00 32 
DSUP 0033 
DSUP 0034 
DSUP0Q35 
DSUP 0036 
DSUP 003 7 
DSUP 0D3B 
DSUP0039 
DSUP0040 
OS UP 00 41 
DSUP 0042 
DSUP On/,* 
DSUP 0044 
DSUP 0045 
0SUP0046 
DSUP CO 47 
DSUP 004 8 
DSUP0049 
DSUPOO SO 
DSUP0051 
DSUP 0052. 
DSUP 00 53 
DSUPC054 
DSUPG055 
DSUP 0056 
DSUP00S7 
DSUP 00 58 
DSUP0059 
DSUP0060 
0SUP0061 
DSUPOOOO 
DSUP0062 
DSUP0063 

DSUP0064 
DSUP 0065 
DSUPC066 
DSUP0067 
DSUP006B 
DSUP 0069 
DSUP 00 70 
DSUP007 1 
OSUP 00 72 
DSUP0073 
OSUP : 074 
DSUP 0075 
0SUP0076 
OSUP 00 77 
0SUPG078 
DSUP 007° 
DSUPQOSO 
Dsupcoav 

OSUP CO 82 
DSUP0083 
DSUP0084 
OSUP 0085 
DSUP CO 86 
OS UP 0087 
DSUP0088 
DSUP0089 
0SUP0090 
DSUPOO^V 
DSUP0092 


> B-49 




TITLE • 9DAM DATA St^T WRITE ROUTINE • 

EJECT 

DCB EQU 2 

AREA EQU 3 

BLOCK ■ EQU 4 

OSWRT SETUP 12, PAP 11 

LH DCB, BLOCK t O (Rill GET I/P PARMS 

'= eject 

* ■ 

** WRITE DATA BLOCK TO APPLICABLE DATA SET 

WRITE WRECB, DI , ( DCB) • ( AREA )>• S f ,0, ( BLOCK ) WRITE BLOCK OF DATA 
SPACE 3 

* , ........ r- V 

** WAIT ON WRITE TO COMPLETE 

* ! ■ ■ 

WAIT EC 9 ^ WRECB WAIT ON WRITF TO COMPLETE 

TM WR ECB+ I ,255 WAS THERE AN ERROR? 

BZ DSWRET i NO, GO TC RETURN 

SPACE 3 

* 

** ABEND WITH A DUMP 

* 

ABEND 38, DUMP . 

SPACE 3 

*• ■' 

** RETURN TO CALLER 

* 

DSWRET FREEUP 1 14*12) » T» RC=0 
END 


DSWRQOOl 
DSWROOO? 
DSWR0003 
DSWROOOT 
DSWRD005 
DSWR00Q6 
DSWROOOT 
OSWROOOfl 
DSWR0009 
DSWROai.O 
DSWROO l 1 
DSWROO 12 
DSWROO 13 
DSWROO 14 
DSWROO 15 
OSWROO 16 
DSWR0017 
OSWROO l 8 
DSWR0019 
OSWR0020 
DSWRI002 1 
OSWRiGO?? 
DSWRC023 
DSWR0024 
DSWR0025 
DSWR0026 
OSWR002T 
DSWR0029 
0SWR0029 
DSWR0030 




^^ 0 **^*t ****************************************** t ****** ****V******** 


o* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

C* 

c* 

c* 

c* 

c* 

c* 

c* 

c* 


ITL-E'S DISPLAY 

Unctions 


/OPTION PROCESSING MODULE (DVAR ) 


DVAR ALLOWS THE CALLER TU CUMMUNICUE WITH Ti ir 
USER ( S ) ViA THE 22 50 01 S PLA Y rONSOLE TERMINAL. 
DVAR PROCESSES LIGHT PEN OPTIONS* VARIABLE DATA 
OPTION! S) , AND TUTORIAL TYPE MESSAGE ( Si> * AND 
DATA SET UPDATING. 

THE USfcP(S) RESPONSEtS), LIGHT PEN(S) OR KEY Q OAR D 
ACTION (S) • AS APPLICABLE, ARE RETURNED TO THE 
CALLING PROGRAM. 


ENTRY 

EXITS 


POINT: 

RETURN 


PARM LIST AND 
I. TYPE i- 


DVAR CALLED BY USING PROGRAM 
TO CALLING PROGRAM 

DEFINITIONS: 

TYPE OF REQUEST 


Zm I PAR ^ 


3. 

4. 

5. 

6 . 
7 . 
B. 
9. 

10 . 


MLN - 
NUM - 
OPAR - 
LVAL - 
HVAL - 
VDL - 
TDATA - 
NCODE - 


♦ 
A 

* 
* 
* 
* 
* 
* 
* 
♦ 
♦ 
* 

DATA * 

* 
* 

DATA SFT * 

AND/OR OP DAT £0 * 


1 = LP ACTION, 2 = VAP 
3 = OAT A SET UPDATING 
i 4 = MESSAGES 

LIST C3F OPT IGNIS > , MESSAGES, OR 
RECORDS 10 BE TO BE DISPLAYED 
SIZE IN BYTES OF EACH MEMBER IN IPAR ARRAY 
NO. OF IPAR MEMBERS 
AN ARRAY USED 1C) RE TURN USFR( S) SELECTIONS , 
LO VALUE ARRAY (VARIABLE DATA) 

HI VALUE ARRAY (VARIABLE DATA) 

MAX. CHARS. USER CAN ENTER FROM 2250 KEYBOARD 


LEGAL 

RETURN 


V AK « 
COOL 


DATA - FIT. PT, 


INTO 


* 2 


C******** **** ************* ******************** 4 * ********** *********^**+ 


SUB ROUT I N F DV Ak ( T YPF , IP AP , MLN , NOM , OP AR , L V At, HVAL , VDL t TDATA, I itfi D E ) 


DVAR 000 l 
DVAR 000? 
DVAR HQ 03 
DVAR0UO4 
DVAR^On 1 ? 
OVA ROD 06 
DVAR 0007 
j DVAR 00 OB 
DVAROOOO 
DVAR 00 ID 
DVAR GO 1 1! 
D VAR 0012- 
DVAROO 13 
DVAROO 14 
DVAROO L 5 
DVAR 00 16 
DVAR 00 l 7 
DVAROO 13 
DVAR 0019 
DVAROO 20 
DVAROPl 
DVAR J022 
0 V A R 0 0 2 3 
DVAROO 24 
DVAR 00 25 
DVA|< 0026 
DVAROO 2 7 
DVAROO ?B 
DVAR 00 20 
DVAR 0030 
DVAR CD 31 
DVAROO 32 


COMMON/ GSPO/WURK 

, GSP l 

, (JN 1 TN 

* 12 2 50 

, I A TN 

f DARE A 


! DVAP0034 

i 

NULLV 

, iansc 

, I PT NOW 

, waxpt 

,IPI 

, ISYM 

, KwriRKi 


DVAR 00 35 

2 

IGDS4 

, IGDS5 

, T GDS6 

, I DSP 

,RU 

, HSPB 

,HSPL 


DVAROO 36 

3 

VSPB 

, YSPL 

tNOUT 

t N XD 

♦ NYU 

txsize 

, YSIZE 


DV4R00 3 7 

4 

XLL 

, YLL 

♦ XOR 

,YUR 

,XT IC 

fYTIC 

, XD VAL 


DVAR 00 3 3 

5 

YDVAL 

, I KEY! 

, I KEY 2 

, IKEY3 

, I KEY 4 

• AX 

# Ox 


DVAR0039 

6 

■ AY 

tBY 

rYLPOS 

t . • 


DVAR 004 0 

7 

1 LQGXSW 

, LQGYSW 

i N P T F 

,NPGF 

fERRHD 

, PA 

fFO 

f 

DVAR 0041 


FC , GMGOtl ,GSP l N , DUM , I RFC AL, I FLAG 
LOG I CAL * 1 GSP IN, DUM(2) 

INTEGER *4 GSP 1 , UN I TN,UAREA, NULLV( l ) , STAR ( 19) 

HEALTH I Df ( 9 ) , WORK (26) 

RE AL *4 XT I C ( 6 ) » Y T l C ( 6 ) , XD VAL ( 6 ) , YO V AL ( 6 ) , GL A B ( 1 6 ) 

LOG I CAL*1 LOGXSW ? LOtVYS W , NPT F , NRGF , ERRhO 
LOGICAL*! F A> FB> F C t OPCODE 1 

EQUIVALENCE (WORK ( l ) , S T A R ( 1 ) ) , (WORK ( 11) , GLAB (I) ) 

EQUI VALENCE ( NULL ,NI)Ll V) 

COMPLEX *16 HDRI 211/ • SELECT .OPTION (S) • , • OR CONTINUE 


C 



C 

c 

i 

c 
c 
c 
c 
c 
c 
c 

COMPLEX *16 
G 

c 

COMPLEX *16 
C 

COMPLEX *16 
C 

c 

INT EGER*4 PKEF IXI 32IA* 
C 
C 

c 
c 
c 
c 

COMPLEX 
COMPLEX 
COMPLEX 
COMPLEX __ 

INTEGER *2 DISP/l/ 
INTEGER *4 ECUOt 
l N T EGE R*4 IPAR(l) 
INTEGER *2 LP/'3 •/ 


i SELECT VARIABLE • . 
.. ■ ; ' ]■■ ; 1 * 

•SELECT LINE TO ! B 1 ;, • E 

• i . • t 

•SELECT CONTINUE •, 
•TO RESUME * f 

• 1 t 


•TO UPDATE 
UPDATED 


• ***♦ 

• * 

•ENTER FLT. 
•LICABLE 

t 

BLANK SI 5 1/ • 

* 

BLINE{5 )/ J 
R 3U F ( 5 ) / • 


INVALID - 
PT. 


• , • ENTER AGAIN ***• , 
• , : 

O f * 1 R INTEGER AS APP • , 

• 9 

w 

•*• 


1 . 

5. 


2 . 

6 . 


3. 

7. 


*/ 


DVAROO A 2 
DVAROO 4 3 
DVAR 0044 
DVAR 0045 
DVAR 00 46 
DVAR 0047 
OVAR 00 43 
DVAR 00 49 
DVAR DO SO 
DVAR DO 51 
DVAR 0052 
DVAROO 53 
OVAR 00 54 
DVAR 00 5 5 
DVAR 00 56 
DVAR 0057 
DVAROO 5 8 
DVAR 0059 
DVAROO 60 
DVAR 006 l 
DVAR 0062 
DVAR0Q63 
DVAROO 64 
DVAR 00 65 
DVAR0066 
DVARG067 
DVAR 00 6 Q 
DVAR 0069 
OVAR 00 70 
DVAROO 7 1 
DVAR 097? 
DVAR 00 73 
DVAR 00 74 
DVAR 00 7 5 
OVAR 00 76 



• 9. 

•,•10. « , *11 . 

• , 1 12. 

* , 

DVAROO 77 


• 13. 

• , * 14. • , • 15. 

• , • L6. 

• , 

DVAROO 78 


•17. 

• , 1 18. • , 1 19. 

1 ,*20. 

*,•21. •,*22. •, 

DVAK0079 


•23. 

• , • 2A. ’ » ’ / 5 . 

1 , • 26. 

* , 

DV AR 00 30 


•27. 

•,•28. •,•29. 

• ,* 30. 

•,•31. » ,*32, •/ 

DVAROO 3 l 

*16 

SUFFIX/* 

• / 



DVAR 00 82 

*16 

FOOT ( 2 ) / * 

CG.tT INUr* 

, •——a 

- .•■A :> 

DVAROO H3 

*16 

FOOT 1 1 2 ) / • 

TERM I NAT • 

,• e— - a 


DVAR 00 B4 

*16 

FnOT2( 2) /• 

BACKWARD* 

t • 3 

•/ 

DVAR008S 


DVAR00B6 
DVAROO 87 
DVAROOBB 
OVAR 0089 


ORIGINAL PAGE IS 
OF POOR QUALITY! 


IB-51 



INTEGER *4 LPCAC 10) *i 
INTEGER *4 MSG<7) 

INTEGER *4 1YDATA 
INTEGER *4 TYPE 
INTEGER *4 TDATA 
INTEGER *4 VOL 
INTEGER .'*4 Y 
INTEGER *4 Z3, Z4 
REAL *4 HVAL ( 321 
REAL *4 LVAU32) 

REAL*4 OPAR(l) 

EU U I V AL E N C E U A LEV *IATN) 

EQU l VAL E NCF ( M IDSP .IDSP) 

REAL *'fl VOATA / • | | | I | | | | •/ 
REAL *4 Z 1 • Z 7 
EQUIVALENCE (X*Y) 

EQUIVALENCE <21, ZA), CZ2,Z4) 

c* 

C** USER • S OPTION! S> PROCESSING 

C* , . . 

TOOOO CONTINUE 


FORMAT MO OVAR 1)1 SLAY ACTION - TYPE = • , 
IF C I FI AG.bG.T) GU TO L 100 1 
INITIALIZE GRAPHIC SERVICES 
GALL INGSP ( GSP l tNULL V) 

SPF.CIFY SUBROUTINE LI NK/LOAD ST A'TUS 
CALL SPEC ( GSP l V 2 , 17 , 19,26,-28,53,-56) 
CALL SPEC ( GSP 1 ♦ 1 ,7 » B » 16 , 29, -31 *37, -40) 
INITIALIZE TH C 2253 

CALL INDEV ( GSP1 , UNI TN, 12250) 

INITIALIZE GRAPHIC DATA SETS 
CALL I NGUS ( 12253, I GO SC t 3372 ) 

CALL INGOS ( 1225), IG0S5, 125) 

CALL INGOS (122 50, L G L) S 6 * 51 2 ) 

SET NO SCISSIOR TNG FOR ALL DATA SETS 
CALL SSCTSI IGDSC, 3 ) 

CALL SSCISUGDS5, 3) 

CALL SSCISt IGDS6,3) 


TO AT A = • , I 


* CALL SSC I SI I G0S6 , 3 ) 

C* . *•■■■ 

€♦* SET UP TO BUILD DATA SET(S) 

C* 

11001 CONTINUE 

IF (TYPE • EQ • 4) GO TO 2000 
CALL INGOS ( 12253, I CDS, 1536) 

CALL INGOS ( 12253, MSG ( L ) , L 28 • NULL , MSG ( 2 ) , MSG ( 3 ), MSG( 4 ) 
C MSG (6 ) ,MSG (7 ) ) 

CALL SGR AM( IGDS, 2 ) 

CALL SO ATM ( I GOS, 3 ) 

CALL CRATL ( 12250, T ALEV) 

CALL SLPAT ( I GDS, 1 1 
.... NCHMOD = 4 
NX = 48 
NY = 20 

IF (TYPE.NE.3J GO TO i 10.10 

* NCHMOD = 3 » w 

NX = 72 

. | NY = 49 . i ■ 

11010 CONTINUE ‘ : 

CALL SCHAM(IGDSvNCHMOD) -v,: ,, - 

CALL SO AT L ( l GDS , 0 , 0 , NX , NY ) 

C** BUILD MSG DATA SET(S ) 

C* ... .v.,. , 

DO 11C02 N=l , 7 

. , . CALL SCHAMt MSG (NT , NCHMOD- 2) 

CALL SGR AM ( MSG( Nl , 2 ) T' 

CALL SO ATM ( MS G ( N 1,3.) 

CALL SGDSL(MSG(N!l ,0, \IY-l , NX ,NY ,0 ,0 , NX , NY ) 

{ CALL PTEXT ( MSG(N I 3*N-2 ) ,48, l , NULL ,1,0, NY ) 

11002 CONTINUE 
C* 

C** SET UP TO COMMUNICATE WITH 2250 OPERATOR 

C* 

11003 CONTINUE “ “ " " * V' 

DO 11004 N= 1 * 6 . - . . ^ 

CALL I NCL ( MSG INI ) r , 

11004 CONTINUr ! 

CALL PT£XT( IGOStlFQOT , 3 2 , 100 , NULL , 1 , 0 , 6 ) 

* IF: (TYPE.NE.3) GI3 TO 5 

CALL PTFX1 ( I GDS, FOOT l, 32, 101, NULL, l ,0,4) 

CALL PTEXT ( IGDS, IF00T2, 32, 102, NULL * l ,0,2 ) - 

5 CONTINUE 

CALL PTEXT( IGDS,BLANKS,NX, 50, NULL, 1,0,1) 

ECODE =4 

GO TO ( 10,10,3000*2000) , TYPE ;~'7 .: vv 'v - 

GO TO 1040 
10 CONTINUE 

ECODfc = 8 

IF ( MLN *LE #0*0R «MLN« GT • 12 ) GO TO 1040 


* MSG 1 5 ) * 


DVAROOQO 
DVAR009 l 
nVAROOP’ 
DVAR0093 
DVAR0094 
DVAR0095 
DVAR0096 
DVAR0097 
OVAR 30 9R 
OVAR 0)99 
DVAROIOO 
DVAR010V 
OVAR 31 02 
OVAR 01 03 
OVAR 01 04 
D VAR 01 05 
OVAR 01 06 
OVAROl 07 
OVAPODS 
OVAR DID 9 
OVAR 0110 

OVAR nil? 

OVAR 0113 
OVAR.0114 
OVAR Oil 5 
OVAROl 16 
OVAROOO"' 
• DV-AROl 18 
OVAR 01 16 
OVAROl 20 
0,VAP 01 21 
0VAR0122 
0VAR0123 
OVAR 01 24 
OVAR 01 25 
DVAR0126 
OVAR 01 2 7 
DVAR0129 
DVAR0129 
OVARD130 
OVAR0131 
OVAROl 32 
DVARiOl 33 
OVAR 01 34 
OVAROl 35 
0VAR0136 
OVAROl 37 
OVAROl 38 
OVAROl 36 
OVAR 01 40 
OVAROl 4 l 
OVAROl 42 
OVAROl 4.3 
DVAR0144 
OVAROl 45 
0;VAR0146 
OVAROl 4 7 
OVAROl 48 
OVAR 01 49 
OVAROl 50 
OVAROl 51 
OVAROl 5? 
OVAR 01 53 
OVAROl 54 
OVAROl 55 
OVAR 01 56 
OVAROl 57 
OVAROl 58 
O.VAPOl 5° 
OVAROl 60 
OVAROl 61 
OVAR 01 62 
0VAP016? 
OVAROl 64 
OVAROl 65 
OVAR 01 66 
OVAROl 6 7 
OVAR 0168 
OVAROl 66 
OVAR 01 70 
OVAROl 71 
OVAROl 72 
OVAROl 73 
OVAROl 74 
OVAROl 75 
OVAR 01 76 
OVAROl 77 
DVAR0178 
OVAR 01 76 



1 i 


n 


. 

u 




ECODE * 12 

• IF 1NC1M.LE . O.OK.NOM.GT .321 GO TO 1040 
IF (TYPE.hQ.l) GO TO 20 
EC 006 = 16 

IF UDL.LE.O.OR.VDL.Gl .6) GO TO 1040 

tccoe = 20 

IF 1TOATA.LE.O.OR.TOA1A.GT.2) GO TO 1040 
ci* SET UP TO ACCESS I/P ARRAY MEMBERS 

c* ; 

20 CONTINUE 
ECODE = 0 
X * MOM- 

X = (X/2.0) ♦ 0*75 


0 VAR 01 BO 
OVAjP 01 8 1 
DVAR01B2 
DVAR 01 83 
0VAR0L84 
DVAR 01 85 
OV^ROl 86 
DVAR01B7 
DVAR 01 88 

dvApoirr 
OV^R 01 90 
OVAROlOi 
OVAIROI 92 
DVAR0193 


C* 

\ c** 

c* 


M - X 

continue 

X = MLN 

X = ex/4.0.1 «• 0.75 
1 *= X 

LTH =4*1 

BUILD VARIABLE OR OPTIONIS) DATA SET 

NCV = 0 
DO 100 L= 1 ♦ M, 1 
NCV = NCV + l 

CALL PT EXT ( IGDStPREFIX(L) ,3, NULL, NULL , 1 ,0,19-NCVl 

CALL PTEXT < IGDS, I PAR l I *1 L-l) + 1) , LTH , NULL , NULL ,1,4, 1 9-NCV) 

IT ( MLN • OF • 1 1 ) GO TO 99 

CALL PTEXT ( i CDS , SU TF I X , ( i l~ TL N ) , NULL , NULL , l , MLN+4, 1 9-NC V ) 
CONTINUE 

CALL PTEXT( IGDS,LP,2tL,NULL, l, 16, 19-NCV I 
CONTINUE '• 

IF ( 1 • AND.NQM.EQ# 11 GO TO 299 
ICV = NCV 
M = M* l 

DO 200 L=M , NCM, 1 
NCV = NCV + l 

CALL PTEXT! I GDS » PREF IX ( L ) ,3, NULL, NULL , 1 , 25, I CV+ 19-N'CV ) 

CALL PTLXT! IGDS, l PAR (I'M L-l ) + l ), LTH, NULL, NULL , l , 29, I CV+19-NCV) 

IF (MLN.GE.il) GO TO 199 

CALL PTEXT UGDSt SUFFIX, (ILMLN), NULL, NULL, 1, MLN+29, 1CV + 19-NCV) 
CONTINUE , 

CALL PT EXT ( IGDS, LP, 2,1, NULL , 1 ,41, 1 CV* 1 9- NCV ) 

CONTINUE 

DISPLAY MAIN OPTIONS 
CONTINUE 

CALL SALRM ( 12250) * 

CONTINUE * .. ~ 

CALL EXEC ( IGDS) . , . , 

CALL EXEC(MSG(TYPE) ) 

CALL ENAT M I ALEV , 34 I . . . .. .. 

PROCESS LP ACTION , . _ Vc _ -V 

CALL ROATN ( I ALEV, NCODE, 2,LPCA, 34) ... . ... I . . ; . 

CALL DS ATN ( IALEV,34) 

LPSEL = LPC A ( 4 ) 

IF (LPSEL) 300,300,310 ; < * ' "/ 

CONTINUE 

IF (LPSEL. EQ. 100 .OR. LPSEL. EQ. 101 .OR. LPSEL. EQ. 102) GO TO 1050 

IF ( TYPE. EQ.4.UR. LPSEL *GT .NQM ) GO TO 300 

CONTINUE 

WRITE (6,330) LPSEL ...... ^ 

FORMAT ( •- LP SEL. = • , 12) 

DISPLAY VARIABLE I/P AREA . V “ "* ' Y 

CONTINUE ' .. 

GO TO (620,405,402), TYPE ! , / . v 

CONTINUE . r ; . ' *,* ' ‘ ■ 

‘ LPS = 50 - • : :• 

CALL PTEXT( IGDS, BLINEtVDL, LPS, NULL, 3,0, NY- < 2*LPSEL ) -1 > 

GO TO 411 

CONTINUE : — 

IF ( TYPE.NE • 2 ) GO TO 620 / < \ . 

CALL EX EC ( MSG ( 6 ) ) 

v - 5 i» k 

K = 19 - LPSEL *=.• ,\ ( . 

IF (LPSEL. EQ.l. OR. LPSEL. LT.M) GO TO 410 
N = 43 

K 2 M ♦ 18 - LPSEL .“■■■■■ 

CONTINUE . 

CALL PIEXT( IGDS, VDATA, VOL, LPS, NULLt3,N,K) 

CONTINUE 

CALL INCH IGDS, LPS) . v 


DVAR0194 
OVAR0195 
DVAR0I96 
DVAR 01 97 
DVAR0198 
DVAR01 99 
DVAR 0200 
OVA* 9201 
DVAR 020? 
DVAR 02 03 
DVAR0204 
DVAR0295 
OVAR0206 
DVAR 0207 
DVAR0208 
DVAR 02 0° 
DVAR 02 10 
DVAR 02 11 
DVAR0212 
DVAR02 13 
DVAR 0214 
DVAR0215 
DVAR0216 
DVAR 02 1 7 
DVAR 02 18 
DVAR 02 19 
DVAR 02 20 
DVARD221 
DVAR 02 22 
DVAR02 23 
0 VAR 02? 4 
DVAR 02 25 
DVAR 0226 
DVAR 0227 
DVAR 02 2 B 
DVAR 02 29 
DVAR0230 
DVAR 0231 
DVAR0232 
DVAR 02 33 
DVAR 02 3 4 
DVAR 02 3 5 
OVARO? 36 
0VAR0237 
DVAR0238 
DVAR 02 3° 
DVAR 02 40 
DVAR 02 41 
DVAR 02 4 2 
DVAR 0243 
DVAR 02 44 
OVAR0245 
DVAR 02 46 
DVAR0247 
DVAR 0248 
DVAR02 49 
DViAR 02 50 
DViAR02 5t 
0VAR0252 
DVAR 02 53 
DV|AR02 54 
DVAR 0? 55 
DVAR 02 56 
DVAR0257 
OVAR0258 
DVAR0259 
OVAR0260 
DVAR 0261 
DVAR 026 2 
DVAR0263 
DVAR0264 
DVAR0265 
DVAR 02 66 
0VAR0267 
DVAR0266 


F B-53 


CALL I CURS ( I GO S,L PS, NULL, 1) 

CALL tXfcC< I CDS ) 

CALL ENATN( I ALfcV ». i? , 14 1 

CALL RQATNI I AL FV, MCOOE , 2,LPCA , 32. 341 

CALL DSATNt i ALEV* 32, 341 

CALL DM I T ( IGUS.LPS) 

IF IMCnDfc.fcO.32) GO TO 500 
IF ILPCAI4 ) ) All, 411, 420 
CONTINUE 

IF (LPCAI4) .EO.lOO) GO TO 1050 
IF (LPCA(4).GT.N0M) GO TO 411 
LPSFL = LPCAl 4) 

GO TO 320 

GET VARIABLE 1/P DATA • 

CONTINUE • 

DO 505 N= 1 , 5 
RtU)F(N) = BLANKS! 1) 

CONTINUE ' 

NC = VDL 
NS = -l * NC 

CALL GSPPCM IGDS, RRUF ,NS» 1 ,NTCODE»LPSf NULL I 

WRITE (6,510) RRUF 

FORMAT C VAR. ENTRY = », 10A8) 

IF (NTCODF) 512,513,514 
NTCODE = -1 * NTCODE 

nc = n rcucE 


CONVERT DATA TO REAL 


INTEGER AS APPLICABLE 


513 CONTINUE 

IF (TYPE. fcO. 3) GO TO 700 

CALL C V RT I N ( R DUE t N C , X , I ERR , TYOATA ) 

IF ( IERR.NE.O.OR. TDATA.NC.TYDATA) GO TO 1030 
IF (T DATA. EG. 2) GO TO 610 

600 CONTINUE ■ 

IF (X.LT.LVAL(LPSEL) .OR .X .GT . HVAL ( LPSEL ) ) GOTO 1030 
GO TO 630 
610 CONTINUE 

21 = LVAL ( LPSEL ) 

12 = HVAL (LPSEL) 

IF (Y.LT.Z3.0R.Y.GT.Z4) GO TO 1030 ■ . 

GO TO 630 

620 CONTINUE ' 

CALL l OMITnGDS, LPSFL ) 

630 CONTINUE 

OP AM LPSEL ) = X _ 

GO TO 300 

C* 

C** UPDATE LINE OF DATA 
C* : 

700 CONTINUE 

CALL DSMRG ( IPAR l I * ( L PSEL-1 ) + 1 ) tRBUFt NC ) 

CALL PTEXTUGDS, IPAK( I * (LPStL-mi ) »MLN f LPSEL » NULL » 3 ? 0 *NY 
GO TO 300 

C* 

C** BUILD TEXT OATA SET 
C* 

2000 CONTINUE 

ECODE = 8 * 

IF (MLN .IE. 0 .OR. MLN .GT. 80) GO TO 1040 
ECODE = 16 

IF ( NGM.L6.0fc0R.NQM.GT.49) GO TO 1040 
‘ ECODE 0 

IREC AL = 0 > 

I FLAG = l 
X = MLN 

X = (X/4.0) ♦ 0.75 
1 = X 

CALL SHIFT1 

CALL D I CTR Y( OP AR ( l ) ) ♦ • * 

DO 2003 N = NOM 
X *= 3920.0 - N* 80 

CALL PTEXI ( IGDSC, I PA ft( I * (N- 1 ) +1) # MLN, NULL tNULL ♦ 1 1 0. 0 #X ) 
2003 CONTINUE 

9999 FORMAT ( 1 DVAR TERMINATE RECALLS TYPE =«,I4,* TDATA =*,14, 
V. 1 f MLN = % 1 4 » • NOM = • , I4,* NCODE = • » 14 ) 

GO TO 1052 

C * > \ 

C** SET UP TO UPDATE DATA SET 

C* ' .•••,• .. 

3000 CONTINUE 

IF (NCOOE.NE.O) GO TO 1050 . - . . : • 

ECODE - 8 

IF ( MLN . L 6 .0. OP .MLN. GT .80 ) GO TO 1040 
ECODt = 16 

IF ( NOM.LE .O.OR .NOM. GT # 22 ) GO TO 1040 


GO TO 1040 


0VAR0269 
DVAR 0770 
DVAR 02 7 1 
DVAR 02 72 
DVAR0273 
0 VAR 0274 
DVAR0775 
DVAR0776 
DVAR0277 
DVAR 07 78 
DVAR 07 79 
DVAR9? 80 
0VAR0281 
0 VAR 02 82 ' 
DVAR 0? 33 
DVAR0284 
DVAR02 85 i 
DVAR 02 36 
DVAR 07 3 7 
DVAR 02 8 8 
DVAR 0? 89 i 
OVAK0790 
DVAR 02°! 
DVAR 02 92 
DVAR 02 93 
DVAR 0294 
DVAR 0295 
DVAR 02 96 
DVAR 0? 9 7 
DVAR 02 98 
DVAR 02 99 
DVAR 03 00 
DVAR 03 01 
DVAR 0302 
DVAR03 03 
DVAR 0304 
DVAR 03 05 
DVAR0306 
DVAR0307 
DVAR0309 
DVAR 03 09 
DVAR 03 1 0 
DVAR03 1 1 
DVAR 03 12 
DVAR 03 13 
DVAR 03 14 
DVAR 0315 
DVAR 03 l 6 
DVAR 03 1 7 
DVAR 03 18 
DVAR 0319 
0VAR0320 
DVAR 03 21 
DVAR 0322 
DVAR 03 73 
- 2 '* LP S E L ) 0 V A R 0 3 2 ^ 
DVAR 03 25 
DVAR 03 26 
DVAR 03 27 
DVAR 03 78 
DVAR 03 29 
DVAR0330 
DVAR0331 
DVAR0337 
DVAR 0333 
0VAR0334 
DVAR 03 35 
DVAR0336 
DVAR 03 3 7 
DVAR 03 38 
DVAR0339 
DVAR9340 
DVAR 0341 
DVAR0342 
DVAR0343 
QUA R 0-3 4 4 
0VAR0345 
DVAR 03 47 
DVAR 0348 
DVAR 03 49 
DVAR03 50 
DVAR03 51 
OVAR 0357 
DVAR0353 
; DVAR 03 54 

DVAR 03 55 
dvaro^g 

DVAR0357 

DVAR0358 


ORIGINAL PAGE IS 
OF POOR QUALITY 






I; 


IF < VDL.LE.0.0R.VDL.GTV72) GO TO 1040 
EC ODE - 0 
X = PIN 

X = (X/4.0) * 0*75 

I .= X . ■ ^ 

DO 3010 N= 1 » NOMt I 

CALL PTEXT ( I GDS, I PAR (I* (N-IUI) f MLN, N,NULl f 1, 5 0»NY-2^N) 
3010 CONTINUE 

GO TO 299 : “ i • . 

C* 

C** CONVERSION ROUTINE ERROR RETURN 

C* 

1030 CONTINUE — . 

CALL EXEC ( MSG ( 5 ) ) 

i CALL INCH IGDSf LPS) 

WRITE (6,1031) 

GO TO All 

1031 FORMAT l* *** INVALID 2250 ENTRY *** •) 

c* { - j 

C** RETURN TO CALLER 

c* 

1040 CONTINUE 

WR ITE ( , 104 1 ) NCODF ' 

1041 FORMAT (• INVALID I/P PARM(S)**14) 

1050 CONTINUE 
IFLAG = 1 
IRECAL=0 

CALL TMGDSi IGDS) 

CALL EXEC ( MSGI 7 ) ) 

DO 1051 N= 1,7 I . 

CALL TMGDSI MSG(N) ) v •-••• - 

1051 CONTINUE . 

1052 CONTINUE 
NCODE = ECODE 

IF CTYPF.E0.3) NCODE - NCODE ♦ LPSEL 
9997 FORMAT ( • DVAR TERMINATE: NCUDE =*,14) 

RETURN 

' END 


DVAR035Q 
DVAR 03 60 
OVAR 03 61 
DVAR 0362 
OVAR 03 6^ 
DVAR0364 
DVAR0365 
DVAR 03 66 
DVAR 03 67 
DVAR 03 68 
DVAR 03 69 
DVAR 03 70 
DVAR03 7 1 
DVAR 03 7? 
OVAR 03 73 
DVAR C/3 74 
DVARO? 75 
DVAR0376 
DVAR 0377 
DVAR 03 7 8 
DVAR 0.3 7 9 
DVAR 03 80 
DVAR0381 
DVAR0382 
DVAR 0? 83 
DVAR 03 BA 
DVAR 03 85 
DVAR03 86 
DVAR 03 8 7 
DVAR 03 8 8 
DVAR 03 89 
DVAR 0390 
DVAR 03 91 
DVAR 0?°? 
DVAR 0393 
DVAR0395 
DVAR 0396 
DVAR0397 
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SUBROUTINE E VPDAY ( UP ET , EMAET) 

DETERMINES UATFQ PAN E V flPQRATI UN TOTALS 
DIMENSION UP ET ( 3 66 ) 

INTEGER DAY 
DO 100 DAY = 1 ,5 

100 DPET(DAY) = 0* 0 O06O*FMAET 

DP ET < 61 = 0.0 3059* t,M AE T 

DP ET ( 7) = DPF T,( 6 ) ' 

• on 101 CAY = fl, 10 

101 DPbT(UAY) = 0* QG’05 91* EMAET 

] DO 102 DAY = 11,16 

102 DPET(OAY) =• C .00057* EM AET 

| DP ET ( 17) = DPF n 3 ) 

I _ DO 103 DAY = 18,20 

103 DPET ( DAY ) - DPET ( 6) 

DO 104 DAY = 2 1, 3 2 

104 DP ET ( DAY ) = OPETt 1) 

OPETt 33) = C. 00061* EMAET 
DO 105 DAY = 34,38 

105 DPET (DAY ) = Q • 0 0 062 * E M A ET 
DPET ( 39) = C. 00063* EM AET 
DP ET C 40) * DPET ( 39) 

DPET ( 41) = 0 • 00064* FMAET 
DPET ( 42) = 0.0 0065* EM AET 
DPET ( 43) = 0.00066*EMAET 
DO 106 DAY = 44,53 

106 DPET(DAY) = 0 . C0C67* EM AET 
DO 107 CAY = 51 ,55 

107 DPET ( DAY ) = 0 . 00068* EM AET 
DP ET ( 56) « C. 000 6 9* EM AET 
DO 1C8 .CAY 57,61 


108 DPET(OAY) 

- 

0.000 70* EM A ET 

DPET ( 

62) 

= 

0.00071* EM AET 

DPET ( 

63) 

■-= 

0.00072* EM AET 

DPET ( 

64) 

= 

DPE T ( 63 ) 

DPET ( 

65) 

ss ■ 

0.000 73* EM AET 

DP E T ( 

66 ) 

— 

0 • 00 074 * F M A E T 

DPET ( 

67) 

= 

0 • 0 00 75*EM AET 

DPET( 

68) 

3S 

0. 0 0076* EM A ET 

DPET ( 

69) 

= 

0.-G-00 77* FMAET 

DPET ( 

70) 

= 

OPETt 69 ) 

DPET ( 

71) 

SB 

0 • 0007 3*EMAET 

DPET ( 

72) 

as 

OPETt 71) 

DPET ( 

7 3) 

=: 

0. 00079* EMAET 

DPET ( 

74) 

= 

OPETt 73 ) 

DPET ( 

75) 

ss 

0 • 000 3 0* EM AET 

DPET < 

76) 

■is 

0 . 000 8 1 * EM AET - 

DPET ( 

77) 

= 

0 • 000 32 * EM AET 

DP F T ( 

78) 


C .0 00 34* EM AET 

DPET ( 

79) 

• 2 r 

0.000 36* EM AET 

DPET ( 

80) 

= 

0.03038*EMAET 

DPET ( 

81 ) 

SB 

0.00090*EMAET 

DPET ( 

82) 

= 

C . 00092* EM AET 

DPET ( 

83) 

= 

0 • C0Q94* EMAET 

DPET ( 

84) 

=• 

0 . 00097* EM AET 

DPET ( 

85) 

= 

0 . 00099* EM AET 

DPET ( 

86) 

= 

0 . 0 0 1 02* EMA.ET 

DPET ( 

87) 

ss. 

0 . 00 106* EM AET 

OPET ( 

68) 

SS 

0 • C 01 09* EMAET 

DPET ( 

89) 

= 

0.001 13* EMAET 

DPET ( 

90) 

=; 

0 • 00 1 1 8* EMAET 

DPETC 

91) 

= ' 

0.001 22*EMAET 

DPET ( 

92) 

= 

O.COl 23* EM A £ T 

DPET ( 

93) 


0.0 01 32* EM AET 

DP E T ( 

94) 

= 

O.COl 37* EM A FT 

DPET ( 

95) 

= 

0.C0142*EMAET 

OPET ( 

96) 

s. 

0.00147* EM AET 

OPETC 

97) 

’s 

0 • 00 1 51 * EM A FT 

DP E T ( 

98) 


0. 001 57*EMAET 

DPET ( 

99 ) 

— 

0 . 00 1 63* EM AET 

DPET (ICO) 

= 

0.0016 3 * EM A c T 

DPET (101) 

ss- . 

0.001 7*3* Fm AET 

DPET (102 ) 

— 

0 . 001 7 8* EMAET 

DPET (103) 

=. 

0.0018.5*EMAET 

DPET( 104) 

= 

0.00193* EM AET 

DPE T ( 105 ) 


C. 002 01* c m AE T 

OPET ( 106 ) 

■ss 

0.:002 08* EMAET 

DPET ( 10 7 I 

■= 

0. 002 1 4* EMAET 

DPET ( l 08 ) 

ss 

C. 002 21* EM AET 

DPET <109 ) 


0. 00227* EMAET 

. DPET (HO) 

. ± 

0. 00234*EMAET 

DP ET ( L 11) 

= 

0 .0024 1 * EM AET 

DPET ( 112) 


0.0 0249* FMAET 

DPET ( 113) 


0.0025 6* E M AET 

DPETU14) 

= 

0 • 0 3 2 6 2 * EM A E T 

DPET (1 1 5 ) 

ss 

0.002 68* EMAET 

DPET (116) 

= 

0.002 76* FMAET 

DPET < 117) 

ss 

Q.C 02 81* EM AET 

DPET (118) 

= 

0.002 8 7* EM AET 


EVDYOOOt 
EVDY00D? 
EVDY 00 03 
FVDY0004 
EVOYOOOS 
EVDYOO 96 
EVDY0007 
EVDYO0O3 
EVDY0009 
EV0YOO l A 
EVDYOOIl 
EVDYOO 12 
EVOY0013 
EVDYOO L4 
EVDYOO 15 
EVDYOO 16 
EVOYOO l 7 
EVDYOO 18 
EVDYOO 19 
EVDYOO 20 
EVDY0021 
EVDYOO 23 
EVDYOO 23 
EVDYOO 24 
EVDYOO 25 
EVnY00?6 
EV0YOO27 
EVDY002S 
EVDY0029 
EVDYOO 30 
EVDY0031 
EVDY003? 
EVDYOO 33 
EVDYOO 3 4 
EVDYOO 35 
EVDY0036 
EVDYOO 3 7 
E VDY.0033 
EVDY0039 
EVDY0Q4Q 
EVDY0041 
EVDY0042 
EVDYOO 43 
EVDY0O44 
EVDY0045 
EVDY 0046 
EVDY0047 
EV0YOO43 
EVDY 00 49 
EVDYOO 50 
EVDYOO 51 
EV0Y0052 
EVPYC053 
EVOYOO 54 
EVDYOO 55 
EVDY0056 
EVDY0057 
EVDY 0058 
EVDY 00 59 
EVDY 00 60 
EVDY0061 
EV0Y0062 
EVQY0063 
EVDY 0064 
EVDY 0065 
EVDY 0066 
EVDY 0067 
EVDY 0068 
EVDY0069 
EVDY 00 70 
EVOYOO 71 
EVDYOO 72 
EVOY0073 
EVDY 0074 
EVDYOO 75 
EVDY 00 76 
EVDY0077 
EVDY0078 
EVDY 0079 
EVDYOO 80 
EVDY0Q81 
EVDY 0082 
EVDYOO 8^ 
EVDY0084 
EVDYOO 85 
EVOYOO 86 
EVOYOO 87 
EVDY0088 
6VDV0089 




0PETU19) 
DPET 4 12 0) 
DPET ( 121) 
OP ET ( 122) 
OPET ( 123 ) 
DPET ( 124) 
OPET (125) 
DPET (126) 
OPET (127) 
DPET ( 128 ) 
OPET (129) 
OPET (130) 
DPET ( 13 1 ) 
OPET ( 132) 
OPET ( 133) 
OPET (134) 
OP ET ( 135) 
OPET ( 136) 
OPET (13 7) 
OPET (138) 
DPET ( 139 ) 
0 P ET ( 1 4 0 ) 
DPET (141 I 
DPET (142) 
OPET (143) 
OPET (144) 
OPET (145) 
OPET (146) 
DPET (147) 
DPET (148) 
DP ET ( 149) 
DPET (150) 
DPET l 151) 
DPET (152) 
DPET( 153) 
DPET (154) 
DPET (155) 
OPET (156) 
OPET ( 157 ) 
OPET ( 158) 
DPET (159) 
DPET (160) 
DPET i 161) 
DPET ( 162 ) 
DPET ( 163 ) 
DPET (164) 
OPET (16 5 ) 
DPET (166) 
DPET (167) 
DP ETC 168) 
DPET I 169 ) 
OPET (170) 
OPET ( 171) 
DPET (172) 
DPET (173) 
DPET( 174) 
DPET ( 175 ) 
DPET ( 176 ) 
DPET (177) 
DPET (178) 
DPET ( 179 ) 
DPET(IBO) 
DPET (181) 
DPET ( 182 ) 
DPET ( 183 ) 
DPET (184) 
OPET (185) 
OPET (186) 
DPET (187) 
0PETI1B8) 
DPET ( 189 ) 
DPET ( 190 ) 
DPET (191) 
OPET( 192) 
DPET (193 ) 
DPET ( 194 ) 
DPET (195 ) 
DPET ( 196 ) 
DP ET ( 197) 
DPET (198) 
DPET( 199) 
DPETI200) 
DPET (201) 
OPET ( 202 ) 
DPET (203) 
DPET (204) 
OPET (205) 
DPET (206) 
DPET (207 ) 


0.00293*EMttET 

0 • 0 02 9 9 * EM A E T 
0.00305*FMAET 
0 .0031 0* CM AET 
0. 003 l 7* EM A FT 
0. 00322* FMAtT 
0 • 003 28* EM AET 
0. 003 33* CM ART 
0*003 38* EM ACT 
0.00344* EM ACT 
;C. 00348* EM AET- 
0 • 0 03 5 4 * fc & AFT 
0.00359* EM ACT 
0 . 003 6 5* FM AF T 
G .00370*1 MART 
0. 003 74* EM A ET 
0. 00378* EMAET 
0. Q03 R2* EMAET 
0.003 87* AFT 
0.00391* EMAET 
0.00394*EMAET 
0 . 0 0 3 9 9 * EM A E T 

C. 0 340? * FV ACT 

0.004 07* EMAET 
0.004 i l * EMAET 
0 • 0041 7* EM'AET 
0. 004 20* FM AET 
0. 0042c* EMAET 
C.C 0430* EMAET 
0.00436* EMAET 
C. 00440* FM AET 
0.0 044 0* EM A FT 
0.00450* EMAET 
C. 004 55* EM AET 
0 .00460* EM A ET 
0 • C 04 6 6 * E M A E T 
0.00473* EMAET 
0.G0472* EMAET 
0.C0478*EMAtT 
0.004 82* CM AET 
C. 0048 7*:CM AET 
0.00491* EM AET 
0.00495* FM AET 
0* 0050 D*jFM AFT 
0 • 0050 A* EM ACT 
0.00508* EMAET 
0.005 10* FM A FT 
0.005 1 2*F M AET 
0.005 14* EM AET 
0 • 0051 5 * EMA ET 
0.005 17* FM A E T 
0.005 19* EM AFT 
C • 005 2 9* CM A E T 
0. 0052 1* EM AET 
OPET (172) 

DPET (172) 

0 .00522* EMAET 
0. 0052 3* FM AET 
0.00524*EMAET 
0.03525* F M A E T 
0.005 27* CM AET 
C. 0 35 28* EMAET 
OPET ( 180) 

0 • 0 0 5 2 9 * E M A E T 
C • 00530* FM AET 
DPET ( 183 ) 

0. 005 3 1* FMAET 
0.00532*£MAET 
0.005 33*FM AET 
0 .00534* EMAET 
DPFT ( 1.83 ) 

0 • 0 O 5 3 5 * F M A ET 
0 • 005 36*EM AET 
0.00537*EMAET 
0. 00538* EM AET 
DPET ( 193 ) 

0.0 3539*F M AET 
0.00540* EM AET 
DPET ( 196 ) 
0.0054 l* FM AET 
0. 00542* FM AET 
0.00543* EMAET 
0. 0 054 5* EM AET 
0.00 5 4 6 * F M A E T 
0.00547*EMAET 
0.00548*FMAFT 
0. G 3549* E M AET 
0. C0550*FM AET 
0. 005 51* FM AET 



CVDY0090 
* £tfDY009l 
€VOY0092 
EV0Y0093 
EVDY0094 
EVDY0095 
EVDY0096 
EVDY 0097 
EVDY0098 
EVDY0099 
EVDY0100 

eVdyoioi 
EVDY 9102 
EVDY0103 
EVDYOl 04 
EVDYOl 05 
EVDY0106 
EV0Y0L07 
EVDY 01 03 
EVDYOl 09 
EVDYOl ID 
EVDYOl 11 
EVDYOL 12 
EVOY 0 L 13 
EVDY01 14 
EVDY9115 
EVDYOl 16 
EVDY01 17 
‘EVDYOl IR 
EVDY0119 
EVDY0120 
EVDY0121 
EVDYOl 2? 
EVDYOl 23 
FVDY0124 
EVDY0125 
EVDYOl 26 
EVDYOl 2 7 
EVDYOl 28 
EVDYOl ?9 
EVDYOl 30 
EVDY0131 
EVDYOl 3? 
E VDYOl 3 3 
EVDYOl 34 
EVDY0135 
EVDY0136 
EVOY 0137 
FVDY0138 
EjVDYOl 39 
EVDYOl 40 
EVDYOl 41 
EVDYOL 4? 

t VDYOl 43 
VDY0144 
EjVDYOl 45 
EVDY0146 
EVDYOl 47 
EVDY0148 
EVOY 01 49 
EVOY 0150 
EVDYOl 51 
EVDYOl 5?. 
EVDYOl 53 
EVOY 0154 
EVDY0155 
EVOY 0156 
EVDYOl 57 
EVDYOl 50 
EVDYOl 59 
EVOY 0160 
EVDYOl 61 
EVDYOl 62 
EVDYOl 63 
EVDYOl 64 
EVDYOl 65 
EVDYOl 66 
EVDYOl 67 
EVDYOl 68 
EVDY0169 
EVDYOl 70 
~ EVDYOl 71 
EVDYOl 7? 
EVDYOl 73 
EVDYOl 74 
EVDYOl 75 
EVDYOl 76 
EVDYOl 77 
EVDY0178 



DP ET ( 208 ) = 
- DP ET ( 209 ) = 
DP ET C 2 LO ) = 
DP EH 211) = 
DPETC212) = 
OP ET (213) = 
DPET (214) = 
DPETC2L5) = 
DPETC216) = 
DP ETC 2 L7 ) - 
DPET(2i8) = 
1 DPETC219) = 
0PETC220) = 
DO 109 DAY * 

109 DP ET C DAY ) ^ 
DO 110 DAY s 

110 OPETCDAY) “ 
DP ET (230) ^ 
DPETC231J = 
DPET (232) = 
0PETC233) = 
DPETC234) = 
DPET(235) = 
OPETC236) = 
DP ETC 23 7) = 
DPETC238) - 
DPETC239) - 
DPET ( 240 ) ~ 
DP ETC 24 1) = 
DPETI242 ) - 
DP ET C 243) = 
DP ETC 24 4) = 
DPET C 24 5 ) = 
DP ETC 246) * 
DPET C 247) = 
DPETC24B) - 
DPET (249) = 
DP ETC 2 50 ) = 
0PETC251) = 
DP ETC 25 2 ) = 
DPET (253) = 
DPET (254) ■= 
DPET (255 ) = 
DPET ( 256 ) - 
DP ETC 257) = 
DPET (250 ) = 
DPET ( 259 ) = 
DPET ( 260 ) = 
OP ET ( 26 l ) = 

_ DPETC262) = 
DPET (263) = 
DPET (264) = 
DPET ( 265 ) = 
DPET ( 266 ) = 
DP ET ( 26 7 ) = 

, DPET ( 268 ) = 
DPET ( 269 ) = 
DPET ( 270 ) = 
OPET (271) = 
DP ET C 272 ) = 
DP ET C 273 ) = 
DPET (274 ) = 
DP ETC 27 5 ) = 
DPET C 276 ) = 
OPET ( 277 ) = 

- DPET ( 270 ) = 
DPET ( 279 ) = 
DP ET ( 280 ) = 
DPET (281) * 
OPET ( 282 ) = 
DPET ( 283 ) = 
DP ET ( 2 84 ) = 
DPEH2R5) = 
OPET C 286) = 
DPET (287) = 
DPET (288) = 
DP ETC 289) = 
DPET ( 290 ) = 
DP ET { 29 l ) = 
DPET (292) = 
DP ET ( 293 ) = 
DPET ( 294 ) = 
DPET ( 295 ) = 
DPET (296) = 
DP ETC 297 ) = 
DPET (298) = 
DPET ( 29 9 ) = 
DPET l 300) = 


0.00557* 
0.00553* 
0.CO555* 
0.00557* 
0.00558* 
0.00560* 
DPET ( 213 
C. 0056 l* 
0.00562* 
0.00563* 
0.00565* 
0.00567* 
QPETC 219 
1 2? it 276 
0.00568* 
' 227.279 
DPET (219 
0. CO 566* 
0.00564* 
DPET (21 7 
DPET ( 216 
DPET (21 3 
0.00559* 
DPCT( 211 
OPET ( 210 
DPET ( 209 
DPET (206 
DPET (203 
DPET (199 
DPET (193 
DP ETC 190 
DPET ( 185 
DPET ( 179 
DPET (175 
DPET ( 169 
0.00511* 
DPET ( 163 
0.00497* 
0.00490* 
DPET< 158 
0. 0047 6* 
G. 0046 a* 
0.00461* 
0.C0454* 
DPET ( 150 
0.00437* 
0.0G427* 
0. 034 18* 
DPE T ( 14.2 
0.00397* 
DPETl 137 
0.00377* 
0.00367* 
0.00356* 
0.00347* 
0.00337* 
0. 00329* 
DPET ( 124 
0. 00315* 
0.00303* 
0.00303* 
0.00300* 
0. C 0298* 
0.00294* 
0.00290* 
0.00286* 
0.00233* 
0.00279* 
DPET ( 116 
0.00271* 

DPET (115 
DPET (114 
0.00259* 
0.00254* 
C. 00252* 
0.00247* 
0.00244* 
0.00239* 
DPET ( 110 
0.00239* 
0.00225* 
0 . 00222 * 
0.00217* 
0.00213* 
0 . 00210 * 
0.00206* 
0.00206* 
0.00197* 


FMAET 

FMAET 

FMAET 

EMAET 

FMAET 

FMAET 

) 

FMAET 

FMAET 

FMAET 

EMAET 

FMAET 

EMAET 


EMAET 

EMAET 


FMAET 

> ' 

) : 

) ' T. 

) 

)- f • 

) r 

) 

i 

) 

r , 

) 

) 

EMAET 

I 

FMAET 

EMAET 

) 

FMAET 

FMAET 

EMAET 

FMAET 

) 

FMAET 

EMAET 

EMAET 

I 

EMAET 

) 

FMAET 

EMAET 

EMAET 

AET 

EMAET 

FMAET 

) 

EMAET 

FMAET 

EMAET 

EMAET 

EMAET 

EMAET 

EMAET 

EMAET 

FMAET 

EMAET 

) 

EMAET 

) 

) 

FMAET 

EMAET 

EMAET 

EMAET 

EMAET 

EMAET 

) 

EMAET 

EMAET 

EMAET 

FMAET 

EMAET 

EMAET 

EMAET 

EMAET 

EMAET 


EVDYOl 79 
EVDYO! 80 
EVDYOl 81 
EVDYOl 92 
EVDYOl 83 
EVDY018A 
EVDYOl 85 
EVDYOl 86 
EVDYOl 87 
EVDYOl 08 
EVDYOl R9 
EVDYOl 90 
EVDYOl 91 
EVDYOl 97 
EVDYOl 93 
EVDY0194 
EVDYOl 9 5 
EV0Y01O6 
EVDYOl 97 
EVDYOl 98 
EVDYOl 99 
EVDY0200 
EVQY02O1 
EVDY0702 
EVDY 02 03 
EVDY 0204 
EVDY0205 
EVDY02 06 
EVDY 02 07 
E VO Y 02 08 
EVDY0209 
EVDY02 1 0 
EVDY02 11 
EVQY0212 
EVDY0213 
EVDY0214 
EVDY0215 
EVDYO? 1 6 
EVDY0217 
EVDY0218 
EVDYO? 19 
EVDY0270 
EVDYO? 2 1 
EVDY0222 
EVDY0273 
EV0Y0274 
EVDY0275 
EVDY 02 76 
EVDY0227 
EVDY0228 
EVDY 02 2 9 
EVDY 02 30 
EVDY 02 3 1 
EVDY023 2 
EVDY 02 33 
EVDY0734 
EVDY 02 3 5 
6VDY0236 
EV’DY 02 3 7 
EVDY 0? 38 
EVDYO? 39 
EVDY02 40 
EVDY 0241 
EVDY 02 42 
EVDY 02 43 
EV.DY02 44 
EVDY 02 4 5-. 
EVDYG246 
EVDY 0247 
EVDY 0248 
EVDY 02 49 
EVDY0250 
EVDY0251 
EVDY02 52 
EVDY02 53 
EVDY 02 54 
EVDY0255 
EVDY 0? 56 
EVDY 02 57 
EVDY 02 58 
EVDY 02 59 
EVDY026D 
EVDY0261 
EVDY0262 
EVDY 02 63 
EVDY0264 
EV0Y0265 
EVDY0266 


1 - B-58 


OPETOOn 
DPET (3)2) 
DPET (303) 
DPET ( 3 D4 ) 
DPETO05) 
OP fc 7 ( 3 7 6 1 
DP ET ( 307 ) 
DPET (308) 
DP ET ( 309 ) 
OPET (310) 
OP ET (311). 
OP ET ( 3 L 2 ) 
OPET (313 ) 
OPETUIA) 
DPET (3 lb) 
DPET (31 6) 
DPET (31 7) 
DPET ( 318) 
DP ET (319) 
OPET (320) 
OP ET ( 3 21) 
OPET (32 2) 
OPET (323) 
OPET ( 3 2 A ) 
OPET (325) 
OPET (326) 
OPET (32 7) 
DPET (328 ) 
DP ET ( 329 ) 
OPET (330) 
OPET (331) 
DPET ( 33 2 ) 


0*00194* EM A ET 
0*03 l 89* EM AET 
0*00196* EM AET 
0 • 0 31 3 2 * EM AET 
0*031 30* EM AET 
0.00177* EM AET 
0 .(531 74* EM AET 
0*001 7 2* EM AET 

DPET ( 100 ) 
DPETC 99) 
0.03160* CM AET 
0 • 0315 6 * f M A E T 
0.00152* EM AET 
C. 00 1 49* FM AET 
0 • 001 46* EM AET 
DPET ( 95 ) 

0.00 l 3 a* EM AET 
0.0 3135* EM AET 
0. CO l 3 L* CM AET 
0 • 001 27 * EM AFT 
0.00124* EM AET 
0 . GO l 2 3* EM AET 
DPET ( 90) 
0.001 16* EM AET 
DPET ( 99) 

0. COliO* EM AET 
0 • 0 3 1 0 7* t M A ET 
0 .00 1 04* cM AET 
DPET (86) 

0.00 1 00* EM AET 
G • C 0098 * EM AET 
C. 000 9 7* EM AET 


DPET (334) 

=: 

G.C0093'*EMAET 

OPET (335) 

= 

D P E T ( 

ei ) 

DP E T ( 33 6 ) 

is 

OPET I 

00) 

OPET (337) 

— 

0. 000 37* EM AET 

DPET (338) 

= 

DPET C 

79 ) 

DP ET ( 339 ) 

— 

DPET ( 

78) 

OP ET ( 340 ) 

=: 

DPET ( 

77 ) 

OPET( 341 ) 

-= 

OPETC 

75 ) 

DPET( 342) 

— 

DPET ( 

73 ) 

DPET (343) 

- 

DP FT ( 

71 ) 

OPET (344) 


0 P E T ( 

7 t ) 

DPET ( 345) 

= 

DPET ( 

69 ) 

OPET { 346 ) 

— 

DPFT ( 

68 ) 

OPET (347) 

— 

OPETC 

66 1 

DPET (348) 

■SS 

OPETC 

63 ) 

OPET (349) 

= 

OPETC 

62 ) 

DP ET ( 3 50 ) 

2= 

0 P E T ( 

57) 

OPET ( 351 ) 


OPET ( 

571 

DPET (352) 


open 

56 ) 

OG 111 DA> 


=' 353, 

35 5 1 

Li OPET (DAY) 

= 

OPETC 

5 1 ) 

DPET(356) 

— ■ 

D P E T ( 

44) 

OPET ( 357 ) 

= 

DPET ( 

44) 

OPET ( 358 ) 


D P E T < 

42) 

OPET ( 359 ) 

= 

OPETC 

41 ) 

DPET (360) 


DPET ( 

39 ) 

DP ET ( 361 ) 

■ = 

OPET( 

34) 

OPET (362) 


DPET ( 

33 ) 


DO 112 DAY = 363,365 
112 DPET ( DA Y) = OPETC 1) 
DPET ( 366 ) * OPETC 57) 
RETURN 
END 


EVDY0267 
EVDY0268 
EVDY0269 
EVOY 02 70 
EVDY02 71 
EVDY 02 72 
EVDY0273 
EVDY0274 
EVDY 02 75 
fc VD Y02 7.6 
E VDY 02 77 
EVDY 02 73 
EVDY 02 79 
EVDY 02 80 
EVDY 02 8 L 
EVDY 02 82 
EVDYO203 
EVDY 3? 84 
EVDY0285 
EVDY 02 86 
EVDY0287 
EVDY0289 
evn v 02 A 9 
EVDY 0290 
EVDY 02 9:1 
EVDY 029.2 
EVDY 02 93 
EVDY 0294 
EVDY 0295 
EVDY0296 
EVDY0297 
EVDY 02 98 
EVDY029Q 
EVDY 03 00 
EVDY0301 
EVDY0332 
E VDY0 303. 
EVDY 03 04 
EVDY0305 
EVDY0306 
EVDY 030 7 
EVDY0308 
EVDY0309 
EVDY 03 1 0 
EVDY°3 1 1 
EVDY 03 12 
EVDY 03 13 
EVDY 03 14 
EVDY0315 
FVDY0316 
EVDY0317 
EVDY03 1 8 
EVDY 03 19 
EVDY 03 20 
EVDY0321 
EVDY0322 
EV0Y0323 
EVDY 03 24 
EVDY0325 
EVDY 03 26 
EV0Y0327 
EVDY 03 28 
EVDY0329 
EVDY0330 
EVDY0331 
EVDY0332 



i 

l 

i. 
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BLOCK DATA 
;COHMGN/GSPD/ 


11 

\ViORK 

, GSP l 

♦ UNITN 

♦I 2250 

♦ I A TN - 

, 2 

OAREA 

♦NULLV 

• 1GDSC 

» I PTNOW 

« MAXPT , 

3 

I PT 

t ! SYM 

« RWORK. 1 

•VI GO'S 4 

.moss , 

4 

IGDS6 

, I DSP 

» RU 

fHSPB 

♦HSPL ♦ 

S 

VSPB 

» VSPL 

» NOIJT • 

i NXD 

♦ NYD ♦ 

6! 

XSIZE 

t YSIZF 

» XL L 

t Y L L 

♦ XUR , 

7 

YUR 

♦ XT r c 

♦ Y T I C 

♦XDVAL 

♦ YDVAL * ♦ 

8 

I KEY I 

♦IKEY2 

♦ I K CY3 

, IKEYA 

» A X ♦ 

9 

BX 

♦ AY 

♦ BY 

tYLPOS 

♦ 

A 

LOGXSW 

♦LOGYSW 

♦ NPTF 

♦ NRGF 

t'ERRHO ♦ 

B 

FA » 

FB ♦ FC ♦GMGOEl 

♦GSPIN ♦ DUM • 

♦ I REGAL 

l 

OGICAL*! DUM(2) 




REAL*3 WORK ( 361/10** ********* , *CONT 1NUE*. * 

~ -• ♦• 3TABL * ♦ 

lj 

•E OF CON 1 

♦ 'TENTS- 

-a* ♦'RETURN- 

- • ♦ 1 SNE XT • 

♦ • P£GE — ♦ 

21 

18** 

•/ 




RE Al*4 RU/43 

96./ , 

HSPB/56./ 

♦HSPL/84./ 

♦VSPB/ 80./ f 

l 

VSPL/120./ , 

XL L/896 . / 

,XUR/3984./ 

♦YUR/3616./ ♦ 

2 

YL POS/ 3 796 • / » 

RWORK 1/ 1810. 

/ 



INTEGERS UNITN/LO/ ♦OAREA/76B/ ♦ NULLV ( 1) /-5/, I DSP/O/ 

1 NOUT/49/ f NXD/ 6/ t M VO/6-/ ,GSP1 

2 IPT/36/ . ♦ MAXPT/640/ r.P>TN0W/0/ 

REAL*4 XT 1 C ( 6 ) « YT ( C ( 6 1 f XDV AL ( 6 ) * YD V AL ( 6 ) 

LOG I CAL* l L OG X S W ♦ L GG Y S W ♦ N P T F ♦ NRGF * ERR HI) 

LOGICAL*! FAt FB f PC tGMODEi/* I'RUE./fGSP IN/* FALSE#/ 

END 


GSPOOOOl 
GSPDOOO? 
GSPD0003 
GSPD0004 
GSPD0005 
GSPD0006 
GSPD0007 
GSPDQO’JS 
GSPD0009 
GSPDOOlO 
GSPQOOll 
GSPD0012 
GSPDO.OL3 
GS POOD 14 
GSPOOOOJ 
GSPDOOOO 
GSPDOQIT 
GSPD09A8 
GSPDOOlO 
GS PD 90 20 
GSPD0021 
GSPD902? 
GSPD0023 
GSPD0024 
GS PD 00 2 5 
GS PD 00 2 6 
GSPD0027 



I 
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PROGRAM FINDS THE INTEGRAL (IF A GIVEN HYDBOGR APH AND PLOTS THE > 
INPUT DATA. 

' . - • . . " ■ ■■ ■ -I 

DATA INPUT IN HRS. FT. . 1 

DATA PLOTTED IN HRS. FT. OR HRS .SEC .FT. 

DATA INTEGRATED IN DAY. FT. OR DAY. SFC. FT. 

IFL AG= 1 TRAP! ZC11UAL INTEGRATION SCHEME USED. 

I FLAG® 2 SIMPSON'S 1/3 INTEGRATION SCHEME USED. ! 

!PLOT= 0 l A 03 PRINTER PLOTS ONLY. . 

IPLOT= 1 BOTH 1 AO 3 PRINTER PI (ITS AND SC AO 20 PLOTS. 

LOOKUP= -l NO T A til K LOOKUP REQUIRED FOR CURRENT CASE. 

UiCKUP= 0 PREVIOUS TABLE PEOUIRED FOP CURRENI CASE. 1 

LC0KUP= l NEW TABLE REQUIRED FOR CURRENT CASE. ] 

SUBROUTINE l NT ( NQ. Q» DT * ARE A I , L OOKUP , I PL OT , NFP , MKROI C , MPOAY.O I FFS , i 
1DI FFMP, Dl FFP,D1 FFP.° * SUM»D IRFRA ,0 IFFRP* APREC, 0 lFFiPR»Q l F PP, OOU t * 
20MAX , PHRU ) ! 

COMMCN/PLOTC/ORSF, DSSF,C0NUPT,THSFD.TMSTF,STMR(1SI 121, 61,nPY,TITLF. 
2KFLAG, ID FLAG, 

IIENDFG,STU0Y( 2) ,P EAK S, P HRS , NSPTS, THSFDM , TFMA X,0, TMRTF , JPLOT, ] 

2 i NCTRI ,CTK I , F I RR , R I CY , DP SE ,H DDFSM , SP5F LW, SPT WCC , SPK, El DIE, 

3 ! XDNFS , FFOR , FFS l , MRNSM,DSMGH, PXCS A tRMPF jKGPMB, AREA , F 1 MP , .1 

A S ATR I , UHF A , 1 

BMNRD , I 

A: FWTR, VI NT MR, BUZC.SU/CtL ZC,ETLF,SUBWF, GW ETF, SI AC , I'M I R , J 

5 B I VF ,GFSS t CFSL , QF'Rm, oFMN! S , I FRC , C SR X , F SRX, CHEAP , FXQP V » 1 

6 BFNLR, 8FRC * GW S , U2S »L Z S, BPNX , I FS , BFHRC , BFRL , BFNRL, BFNHR, I FPPC , 

7 I FRL , LSHFT ,NUTR I ,FNTRI , MXTR 1 ,MCSTR I ,BTR l , TFC FS , EP AET ,FP ER , I 

8 TPLR » V INTER »HSE * NR TR 1 * SPI F » CliF ,S P OK •OPUS, OF US I S * f*PR » URR I S * PE 1 S , 1 

9 RHFO, LRHF.AMIF, A'HE T, AMPET, AMSNE, VMPStl ,SAS- X, S A c AX * SP X , Vw IN, I 

A WCFS ,KHFMC , 5SRT » PPRF , O FP. F I S , EODF , EQDC I S, SO FRF , SPF R Pjl , j I 

8 SDEPTH, MULTI, ID, ASM. wta am , wt arm, sax,tansm,sptw»stmd,s fmd , A SMR G , I 
XDEPEND I 2 ) » V AR IN ( 2 I , N 0 1 S , J ULO I , I YR , T 00 AR Y ( 5,1), 1 I 

YTOMARYI 7 » 1 ) ,TOS AR YI 5 ,6, II, TSDAKY ( 6 , 1 ) , T SMARY (8*1), ! 

ZTSSARYl 3,6,1) ,TSMCRY ( 1 > , TSDCRY 1 1 ) , TSRAR Y l l , 6 , 1 ) * ' ! 

WTORARYI 1,6,1) , 1 

CURSFT I 366 ) , DSSFT t 366 > , M I ,N! , MUI T .TMRTFT { 121 ,-TMSTFT 1 12 I I 

COMMON/ COMMA/ E MB F N X , EM G W S , E m I r- s , E ML Z S , E‘TS TAM , FMl I Z C , E M U Z S , T « OF, 1 

11TM I F , TMPREC ,TMSE ,CP FM I , 0D1W , DM NT , DM XT , DRGPM , DRHP , DRSGP , DP FT , EOLZS, 1 
2EPCM,SERA,SERR,SESF, SO CR, THSF , IMFSI L, TMNE T , T MOP , TMPE T , TMRPM , TMSNE, ] 
3TMSTF I , T200EH, T20PRH , 1 MRTF I , JULDAT , . I 

ATF M AXY » UZC , ALT X ,0 AY , NSGRD , AF X9Q, SI AM, NDSDP, RGPM * NDSDR , YR 1 , 1 

5TRHF, 1 

5STNDFX, INDEX, AEX96, MAX I , YR2 , BYLZS, OY 1FS , BYUZS • I 

DIMENSION TITLFU8), 0( 3371, T.I 337), TA»T( 18) 1 

l ,FLDT ( IP) ,FLf)OI IB) ♦ I OF I IBI ,TfMP( 1540 I | 

1 , YLAB I 13) ,PLD< o> , A( 10) ,SOt 500) , ANS0I3) , ANSSI3) , I 

2 NSPTS 1 6 ) , SUBT ( IB ) I DRSF ( 366 ) , DSST 066 ) , T ITL A < laJtCONOPTI 16), I 

1THSFDI 7 A A, 3) , Pfc AKS (6 ) , THSFCM ( 6 ) , PURS 1 6 ) , T M RT FT I 2 ) , TMS I FI 16,3), 1 

A CTKII99) ,F1RRI 15),RICYI37I,DPSE( 366 ) , BTR l ( 99 ) , I 

A CRFMI ( 22) »DD l W t 3 6t> ) ,DMNT 1366 ) ,OMXT (366 ),DRGPM( 366) , DRHP ( 366,24) , I 

3 EMBFNX (15,3), E.MG w S ( 15, 3 ) , EriT FS( 15 , 3 ) , FMLZS ( 15,3) , E MS I AMI 15,3) , 1 

BDRSGP( 366 ) , DPET (366) , EOLZS) 366 1 ,SER A< 2? ) , SER R ( 22 I ,SESF I 22 ) , 1 

CSQER 1 22 ) , 1 

4 EKUZCI 15, 3 ) • EMUZS ( 1 5, 3 ) , EPCM ( 12 ) , 4 V • 1 

6 THSFI2A) ,TMBF( 15,3 r,TMFSIL( 12), TN|F( 15,31, TMNETI 12) , ; 

7 TMOFl 15,3) ,TMPETC 12), TMPP.ECf 1 5,3) ,TMRPM( 12) , TMSEI 15 ,3 ) , 1 

8 TMSNE IT 2) , TMST F 1 I 15 , 3 I ,T200FH( 2 1 ) , T20PRHI 21 ) » j 

3TMRTF I ( 12) , JULDAT (6 ) ,TF MAXY (366) , .} 

8 SATRI ( 99 ) iUHFA 1 99) , APREC ( 3 ) , OtiUT ( 1 5) 1 

INTEGER DIFFP,STPIS,PHRS,FLDY(IB) , STUDY, T I TL A, TA3T ,END 1 

INTEGER TOMARY, TSMARY, TODAR Y , T SO AR Y , TOSARY, TSSARY ] 

INTEGER FLOP ( IB) , CUN OP I , PCH ARP <2 ) , PCHAELF13 1, PCHAR I 3 1 , S I NDF X, 
1MPDAY(15),FLDQ,FLDT ; " 1 

INTEGER ANSOvANSS , PHRO, SUBT 
REAL SUMI3) 

DATA PCHARP /3 8, 50 / I 

OAT A PCHARF/54,57,22/ I 

INTEGFR PFCHARI3) /-2 30,-233,198/, PPCHAP I 2I/-21A, 226/ I 

INTEGFR PRCHAR ( 3 ) 1 

DATA SUPr/’RFF *,'P/0 ',3*4H ,' IN • , • <T I M • , I 

I'BIHR' , • >> S', '1M R ' , • / 0 ',3*AH ,' IN • , 3*AH / ! 1 

DATA ENO/'ENO •/ ' . .1 

DATA BEK /AH / 

DATA FLDQ/'W/C ','VS N','/P V','S F/','C HO'.'UPLY',' R/0', 

*1 1*AH / 1 

DATA FLDP/'HOUR*, 'EY • , • PREC • , • l P AT • , • AT I O' , • N '.'(IN)', 

lll*AH / 

DATA FLOY / » HOUR* , • LY 0','BS A', 'NO S', MM R','/0 1','CFS)', 1 

lll*4H / 

DATA FLDT / 6*4H , • TIME' , » (HRS* , I *,9*4H / 

DATA FLO / ' El FT* , • I ',' • , ,C C SE' , 'C.FT' »' . ) •/ I 

IERR=0 

INDEXM-0 : 

IDIAG-l 

00 130 1=1,1540 

TEMP I I ) =0. 0 

RE AD 1 5 , 500 ) ( IDF I I ) , 1-1,18) 





16 


C 

4024 


C V 
20 


4023 

59 


63 

61 


67 

65 


500 FORMAT ( 18A4) 

DO 16 1= l t 18 

IF( IDF( l ) . EQ . BLK ) GO TO 10 
CONTINUE 
00 4024 1=1,2 
IDF( l4+n = STUDY(I ) 

CONTINUE 

CALL PLOT I Dt lOF, 1 1 9) 

GO TO 20 . 

10 CONT INUE 

RE AD ( 5 , 500 , END=777 I IT 1 TL A ( I ) , 1-1,13) 

1 F I T I TLA ( 1 ) . EQ. ENO) GO TO 777 
00 4023 1 = 1 1 2 
T I TLA <16+1 ) = STUDY til 
CONTINUE 
00 59 I = 1 1 NFP 
APRECt l )=0.C 
CONTINUE 
DO 61 K=1 , NFP 
00 63 1=1, MAXI 

APREC ( K ) =T MPREC < I ? K )+APREC IK ) 

CONTINUE ‘ .i * , : __ _ „ ■ 

CONTINUE ' l . ' 

DO 65 1=1 , NFP 
DO 67 J = 1, MAXI 

TMSTFK J, l )-( TMSTFU, m/VWlN 

TMOF (Jtl) =TMSTFI ( J 1 1 )-TMI F( J , I ) - T MB F ( J * I ) ♦ T M $ E ( J , I ) 
CONTINUE 
•CONTINUE 
DO 322 1=1, NFP 
THSFDT=THS FD ( 1, II 
PEAKS! I )=THSFQt 1, I ) 

PHRS (11=1 ; I 

c DO 320 J=2 , S INDEX 

IF tTHSFDt J, D.LE.THSFUT) GO TO 320 
PEAKS! I ) =T HSFD ( J , I ) 

ths:fdt=thsfo( j, i) 

PHRS 1 1 ) = J 
320 CONTINUE 
322 CONTINUE 
330 DO 332 1=1, NFP 

THSF0T=THSFD( If I ) 

00 334 K=2, S INDEX 

334 THSFDT = AMINl!THSFDT, THSFDiK, IV) 

THSFDM ( I ) =THSFDT 
332 CONT I NUF 

IF (LOOKUP • LE. 0 ) GO TO 40 
KS=0 

RE AO ( 5 , 500 ) (TABTU), 1 = 1,18) 

DO 8003 1=1,2 
TABT (16+1 ) —STUDY LI ) 

8003 CONTINUE 

DO 15 J =1 , 50 

DO 505 K = l , 10 
CALL READ! A(K)1 

1 IF ( A ( K ) • EQ • 999* 01 GO TO 112 

L=K 

505 CONTINUE 

113 CONTINUE 
C 

C STORE 10 VALUES IN TABLE 

DO! 12 M~l,L 

■x-, KS-KS+1 ' • 

IF! ACM) .NE • 0 • ) NPTS=KS 
DEPEND ( KS ) =A (Ml 
12 CONTINUE 

C 

C TEST FOR BLANK CARD AT END 

TEST=999.0 

C IF TES T = 0 » YOU HAVE THE BLANK CARD AT THE END 

IF < TEST . EQ • A ( K ) ) GO TO 14 

15 CONTINUE ■ 

14 CONTINUE 

C NPTS IS NUMBER OF POINTS, IS SET AFTER 14 

CALL READ t VAR IN ( 1 I > X INC I 
. DO 30 I =2, NPTS 

30 VARIN! I ) = VARI N ( l>i ) +X1 NC '.'.V,;. 

. .40 T ( 1 ) = 0.0 ‘ fv 

IF (CONOPT ( 15I.NE.2) NO=SINDEX 

• DO 60 l =2 , NQ : - 

60 T( TIl-n + DT S 

606 FORMAT! *1* , 18A4) 

IF (CONOPT (15) .NE. 2) GO TO 75 
613 FORMAT ( 1 WATER BASIN AR[jAtSQ. MI.)- f tF7.1l 
IF (LOOKUP. LT.O) GO TO 75 

C CONVERT FT. OF GAUGE HEIGHT INTO SEC. FT. OF GAUGE HEIGHT. 

DO 70 1=1 , NQ 


INTG00B6 
I NT G 00 8 7 
l NT GOO B 8 
I NT GOO 8^ 

1 NT GOO 90 
TNTG0091 
INTO 00 92 
INTO 00 93 
INTG0094 
I NTG DO 9 5 
I NT GOO 96 

I NTG 0097 
INTG0098 
I NTG 0099 
INTO 01 00 
INTGOl 01 
I NTG 01 02' 

I NT GO 1 03 
INTGOl 04 
INTGOl 05 
INTGOl 06 
INTGOl 07 
INTGOlOi 
INTGOl 09 
INTGOl 10 
INTGOlll 
INTGOl 12 
. INTGOl 13 
INTG0LL4 
INTG0115 
INTG0116 
I NTG Oil 7 
INTGOl 18 
INTGOl 19 
INTG0120 
INTGOl 21 
I NTG 01 22 
INTGOl 23 
I NTG 01 24 
INTGD125 
INTGOl 26 
INTGOl 27 
INTGOl 28 
INTG0129 
l NT G01 30 
I NTGOL 3 i 
INTGOL 32 
1 NT G 01 33 
I NT G 01 34 
INTG0135 
I NTGOL 36 
INTGOl 3 7 
INTGOl 38 
I NT G 01 39 
I NTG 0 i 40 
INTG0141 
INTG014? 
INTG0143 
INTG0144 
INTG0145 
I NTG0146 
INTGOl 47 
I NT,GOl 48 
I NTGOL 49 : 
INTiGOlSO ! 
INTGOl 5 L ; 
I NT GO 13 
l NTG 0 1 53 , 
INTGOl 54 
INTGOl 55 
INTGOl 56 
INTGOl 5 7 
! NTG0158 
INTGOl 59 
INTG0160 
I NTG01 61 
INTGOl 62 
INTGOl 63 
INTGOl 64 
I NTG 0 165 
INTG0166 
INTG0167 
I NTG 01 68 
INTGOl 70 
INTGOl 71 
INTGOl 76 
INTG0180 
INTGOl 81 
INTGOl R2 


PAGrElS 

Q, UALTTYi 


B-62 





70' Q C 1 1 — T ABLE (VAR IN »DE PEND, NPTS*Q( l! » 


75 IFL AG= 2 

j IF (MOD(NQ,2 ) . EQ.O I I FL AG= l 
I H= DT/2A. 


IFILC.OKUP.LT .01 GO TO 100 
HR I TE ( 6» 606 ) (TAUT 1 1 ) , l = L, 18) 

WRITE16»612) NPTS 

612: FORMAT ( • ONll^BER OF POINTS IN RATING TABLE=*,l'6) 
WRITEI6.6C7) (VARINI I | , 1 = 1, NPTS) 

607 FORMAT! * 0 INDEPENDENT VARIABLES V(12ETi.4») 

WR I TE ( 6 »60B I (DEPEND (l », 1=1, NPTS) 

608 FORMAT (//• ODEP END lNT V AK I ABLCS • / I 1 2E1 1 .A H 
WR 1TE ( 6.609 ) < T ( l I , Q ( I ) , l = l ,N0 » 

609_FORMAT(//*0T l ME (HRS. )» ,5X, ' OBSERVED DISCHARGECSEC.FT. 
1GHT I • / ( FA .2 * F22. A I ) 


00 90 1=3,5 
90 FLDOC I )= FLOII+1) 


I NTGOl 83 
INTO 01 BA 
INTG01 85 
INTGOl 86 
INTGOl 87 
INTG0188 
I NTGOl 89 
INTG0190 
I NTG 0 1 9 1 
I NTGOl 92 
INTG01°3 
INTG019A 
I NTG 01 95 
I NTG 01 96 
INTGOl 97 
OF GAUGE HE1 INTGOl 98 
I NTGOl 99 


>0 IF CCONOPTC 15I.NE.21 GO TO 25 
QMAX=Q< U 
PHRCJ=l 

DO 161 1=1, NQ 

IF (Q( I ) .Lfc.OMAX) GO TO 161 
QMAX=0 ( I I 
PHRO= I 

>1 CONTINUE 

0MIN= UMAX 
UO 160 1=1, NO 
160 OMtN= AM-IN1 IOMIN,Q( I ) ) 

QMAP= AINT ( QMAXfrl .) 


C PRINTER PLOTS 
NPPTS=NQ 
IN0EXM=1 
STPT S=S INDEX 
DO 380 K=1 » STPTS 

380 SO ( K )=THSFO ( K , I NOEXM ) 

PE AK = A I NT I PEAKS C I NI)c XM ) ♦l ) 

IF (MOD (STPTS » 2 1 .EO.O I I FL AG= 1 
CALL I NT CGI l FLAG, H, 0 , SSU*, STPTS) 

SUM( 2 1 = SSUM/ ! 26 .9 = ARE A I ) 

CALL INTEGI I FL AG , H, SO , S SUM, ST PTS 1 
SUM ( 1 1 = SSUM/ (26. 9* AREA I I 
KNT= 1 
M=l 

SSUM=SUM I 2 ) • — ' - 

DO 7 1=1,2 

PCHARI I I = PCHARP ( I) 

PRCHARI l)=PPCHAK( I ) 

7 CONTINUE 

IF (QMAP.LT .PEAK I CMAP = PEAK 

IF (QMIN.GE.THSFOMI INDEXM1) QMIN=THSFDMI INDEXM) 
CALL FLRCOE I SUM( l ),b,ANSO) 

CALL FLBCDEI SUM! 2 ) » 6 * ANSS I 
. DO 381 1=1,3 

381 SUBT ( 1+2 1= ANSOI l I 
00 382 1=1,3 

382 SUBT ( l+l l )=ANSS( I ) 

N= 1 

L=2A 

DO 53 1=1, MAXI 
OOUT ( I )=0.0 
53 CONTINUE 

DO 57 1=1, MAXI 

DO 55 K=N , L 

QOUTI I ) =0 ( K I +QOUT I l ) 

55 CONTINUE 

OOUT ( I I =QOUT ( II/2A.0 
N=K 


L=N+23 

CONTINUE 

APREC ( 3 )= APRECI 1) 

GO TO 1000 
CONTINUE 
PEAK=PEAKS( U 
QMIN=THSFDM( II 
DO 13 1=1,3 

PEAK=AMAXl(PEAK, PEAKS! I II 
QM I N=AM INK QM I N, THSFDM I III 
CONTINUE 

IF t MOO (S I NOEX, 2 ) .EO.O) IFLAG = 1 

PEAK=A1NT ( PEAK* l I 

QMAP=PEAK 

OB 17 1=1,3 

DO 19 K= l , S I NDEX 

SOI K)=THSFD(K,1) 

CONTINUE 

CALL INTEGI l FLAG, H, SO, SSUM.SINDEXJ 


I NTG 0200 
IN1G0201 
INTG0202 
I NTG C 2 03 
INTG020A 
INTG0205 
1NTG0206 
INTGC207 
INTG0208 
I NTG 02 09 
INTG0219 
INTG0211 
INTG0212 
INTG0213 
INTG021A 
INTO 02 15 
I NTG 02 16 


INTG0219 
INTG0220 
I NTG 02 21 
lNTC.-->2?2 
INTG0223 
INTG022A 
1NTG9225 
INTG0226 
INTG0227 
INTG0228 
i NTG 02 20 
ilj)TG0230 
I NT G 0 2 3 1 
INTG0232 
INTGO? 33 
INTGOOQO 
INTG023A 
INTG0235 
INTG0236 
I NTG 02 37 
INTG0238 
INTG0239 
I NTG 02 AO 
INTG02AI 
INTG02A? 
INTG02A3 
INTG02AA 
INTG02A5 
I NTG 02 A 6 
INTG02A7 
INTG02A8 
1NTG02A9 
1NTG0? 50 
INTG0251 
f NTG0252 
INTG0252 
INTG025A 
INTGO? 55 
INTG0256 
INTG0257 
INTG0258 
INTG0259 
INTGC'2 60 
INTG0261 
INTG0262 
I NTG 02 63 
INTG026A 
INTG0265 
INTG0266 
I NTG 02 67 
INTG0268 
INTG0269 
I NTG 02 70 
INTG0271 
INTG0272 


? :::-A 




SUM< l >=SSUM/(26.9*AREAI> 

17 CONTINUE * ’ 

M* 2 
KNT=3 

QMA X = PE AKS ( 3 ) 

PHRC=PHRS(3) 

SSUM=StIM(3) 

I 00 11 1=1,3 . 

PCHARI I )=PCHARF( I ) 

PRCHAR ( l ) =PFCHAR( 1) ■ • . 

11 CONTINUE 

DO 33 K =1 , SINOFX 
QIK ) = THSFD(K» 1) 

33 CONTINUE ' 7 . 

00 3 1=1,18 
SUBT I I ) = PLOT I I ) 

FIDYC IJsPLOQm 
3 CONTINUE 

1000 IF (IPLOT.NE. 0) GO TO 1001 

CALL PL360(NPPTS,TSMP,T,T(l ),T(NQ ), SUBT, Q, QMIN, QMA P , FLOY* 

IT I TLA, -21 A) 

CALL PL360(STPTS, TEMP, T, Til), T(NO), SUBT, SQ, QMIN, 

IQMAP, FLOY, TITLA, 226) 

C SC4020 PLOTS 

1001 IF (1PL0T.EQ.0) GO TO 391 

CALL PL 4 020 ( 1, 1 , PCHA-Rt 1 1,S INDEX:, T»0,T ( 1 ) ,T (NO) »QMIN»QMAP,SU3T» 
1FLDY, TITLA, IFRR ) ■ ... ’ 

CALL PL 3601 S INDEX, TEMP , T ,T( 1 L,TjlNQ ) ,SUOT , Q, QMIN, OMAP, FL OY.T ITLA, 
♦PRCHAR t 1 ) ) 

IF ( IERR.FQ.I) CD TO 185 
191 IF (IERR.E0.2) GO TO 187 
WRITE (6,715) 

715 FORMAT (• OFF SCALE PLOT POINTS WERE ENCOUNTERED • > 

GO TO 20 

187 WRITE (6,717) 

717 FORMAT! • SU4K0UT I NFS UNABLE TO CONSTRUCT READABLE GRIDS') 

185 00 21 I =M , KNT 

00 23 K = 1 » S I NDEX 
SQ ( K ) sTHSFO ( K, I ) 

23 CONTINUE 

IF (CONOPTI 15I.EQ.2) PCHAR ( l ) =PCH AR( 2) 

IF (CONOPTI 15) .EC'. 2) PPCHAP ( 1 ) = PPCHAR ( 2 ) - 

CALL PL A 020 ( 2,1 , PCHARI i ) ,S INDEX, T , S j ,T ( 1 ) , T (NO ) , QMIN, 

IQMAP, SUBT, FLOY, TITLA, IhRR) 

CALL PI. 360 (S INDEX, TEMP, T,T( l ) ,T(NQ I ,SUBT, SO , QMIN, QM AP , FLOY, T ITLA 
♦PR CHARI 1)1 
21 CONTINUE 

IF < I ERR. ME. 1 ) GO TO 191 


1NT60273 
INTGO? 74 
INTG0275 
INTG0276 
INTG0277 
INTG0278 
INTG0279 
INTC.0289 
! NTG0281 
INTGOOOQ 
INTG0282 
1NTG0283 
INTG0284 
1NTG0285 
INTG0286 
INTG0287 
INTG0288 
INTGO? 89 
I NTG0290 
INTG0291 
1NTG029? 
INTG0293 
INTGO? 94 
INTG0295 
INTO 02 96 
I NTG0297 
INTO 32 9 8 
INTG0299 
I NTGOOOQ 
INTGOOOO 
INTG030Q 
INTO 03 01 
I NTG0302 
1 NTGD303 
INTG0304 
INTG0305 
I NT G 0306 
INTG0307 
I NTG0303 
INTG03 39 
INTGO 3 10 
1 NTGOOOO 
INTGOOOO 
INTGO? 12 
TNT GO 31 3 
INTGOOOO 
INTGOOOO 
INTGO 3 14 
INTG0315 


690 FORMAT (• • , 18A4) 

C OBTAIN THE DIFFERENCE BETWEEN THE OBSERVED AND SIMULATEO MAX FOR DAY 

391 DIFFS=PEAKS(1)-QMAX . 

DI FFSA=DI FFS 

. IFIDIFFS.LT. 0.0) D I FFSA=-D1FFS ... ..... . 

01FFMP= (01 FFSA/QMAX) ♦100.0 
C 

C OBTAIN THE DIFFERENCE BETWEEN THE OBSERVED AND SIMULATED PEAKS 
. DIFFP=PHRS( ll-PHRO ... 

OTFFPA=()I FFP 

IF(DIFFP.LT.O) D I FFP A=-OI FF P 

DIFFPP= (DIFFPA/PHRO) *100 “ ‘ 

c ■. ., 7 , . 

C : 

C COMPUTE DIFFERENCE AND *D I FFERENCE IN RUNOFF 

DI FFR=SUM ( 1 ) -SSUM - • . • 

DIFFRA=DIFFR . . . . 

IFIOIFPR.LT. C.O) OIFFRA=-Ol FFR 
D1FFRP= (DIFFRA/SSUM) *100.0 


COMPUTE DIFFERENCE BETWEEN PDRCASTEDCWORSTCASE PRECIP 
0 I FFPK = APREC < 1 1 -APREC ( 3 ) 

OIFPP = DIFFPR/ APRECI l)*100 ■ ' 1 

WRITE (6,700) (TtTLE(t), 1=1,18) . .... ] 

IF ICONUPT ( 15) .EQ.2) GO TO 729 1 

FORMAT ( • 1 • , 18A4 I 'I 

WRITE (6,710) MSBDIC ' ' ' 

FGRMAT ( 63X , • TABLE • ,1 X, • ONE* , 3X , • FDRCCAS T RUN* ,/ ,64X, A4 , 10X, 'WORST 
ICASE' ,10X, 'NO PRECIP', 10X, 'FORECAST', /) 

DO 71 1=1, MAXI 

WRITE (6,711) MPD AY ( I ) , (TMP RFC ( 1 «K ) * K- 1 , 3 ) , ( TMOF ( l « K ) » K= l ,3 ) , 

1 ( T M I F ( I ,K » ,K=1 , 3) * ( TM8F ( I ,K 1 ,K = 1 ,3 1 ,( ST MRUS ( I ,K 1 ,K= 1 , 31 
FORMAT (64X, 1 2, 2X, • PRFC I P • , BX, F 5. 3, 2< 15X, F 5, 3 ) , /, 68X, • SUR R/0',7.., 
1F5.3,2( 15X.F5.3I ,/,60X,'INT HL • ,6X , E5. 3, 2 ( 15X , F5.3) , / , 68X, 

2'BASE FL' ,7X,F 5.3,21 15X,F 5, 3 > , / ,68 X , • ST M R/0 • , 3X, F7 . 1 , 2 11 5X, F7.1 ), 

CONTINUE i 

WRITE (6.700) ( T I TLE 1 1 ) ,1 = 1 , 1 8 ) 






712 

713 

" i 

714 
719 

721 

723 

727 

725 

729 

731 

735 

85 

737 

739 

i 

7*fl- 

743 

745 

747 


749 


87 
751 
777 

C 

603 

.112 


WRITE 16,7121 • INTG0356 

FO RM AT (63X, 'TABLE' * IX,' TWO '»3X*' FORECAST RUN* , / ,43X , • WORST f.ASF' , INTG0357 
UOX.'NO PRfcCIP'.lOX. 'TORE CAST • , 10X, 'DIFF • , B X, • %0 l FF » , / 1 INTG035B 

WRI1E (6,713) (PEAKSU) ,1 = 1,3) ,01 F FS , D l FFMP i . .. INTG0359 

FORMAT ( 31 X, ' PEAK ( CF S ) • , 3X, F7 . 1 , 1 l X ,F7 . I , UX, FT. I , 8X, F R.2 ,BX ,F5 . 2, I NTGG360 
1//) 1NTG036! 

WRITE(6,714) (PHRSI l t, 1 = 1,3) , 0 1 FFP , DI FF PP INTG0362 

FORMAT ( 31 X,* PEAK (HR ) • , 6X , I J , l 5X , I 3 , 1 5X, 1 3, 1 2X, I 3 , 10X , F 5 . 2 , / /) INTG0363 

WRITE (6,719) (SUM! I )• 1=1,3) , li I FTR , 01 FF» P ! INTG3364 

FORMAT! 31 X, 'R/0 ( IN ) • , 9 X, T5 .2 , 12X , F 5. 2, 1 2X, F5. 2, 12X, F 5. 2, 10X , F5. 2, INTG0365 
1//) INTG0366 

WRITE (6 ,721 ) (APREC! I), 1=1,3), OIFFPR.DTFPP INTG3367 

FORMAT (31X»*PRfcCIP ( IN I • , 2X , F 7 .3 , 1 1 X, FT- 3 ,11X ,F7 , 3 , 8X , FB; ? , 8X, INTG9368 

IF5.2) I NTG0369 

WRITE (6,700) ( T I TLF (I ) ,1 = 1 *18.) INTGOOOO 

WR!TE(6,723) MSRD1C INTG0371 

FORMAT (63X, 'TABLE' , IX, • THRFE ' ,3X,' FORECAST RUN* , / ,64X , A4 * 10X , INTG0372 

1 'WORST CASE* , 10X, •NO PREC I P • , l OX, • FORECAST • , / ) INTG0373 

00 725 1 = 1, MAX I 1NTG0374 

WRITE (6, 727) MPOAYl I ) , (EMIFS( I »K ) , K=l *3 ) , ( EMUZS ( I ,K ) , K= 1 . 3) • INTGC375 

II E ML 2 S ( l,K),K=l,3), (FMGWSO ,K ) ,K= 1 , 3 ) , ( t MSFNX (1 , K ) , Kt 1 , 3 ) , INTG0376 

2(EPSIAM( I ,KI ,K=L,3) , ( C’-'UZC ( I , K ) »K= 1 , 3 ) 1NTG0377 

FORMAT ( 64X, 12,? X, * IF S' , 1 IX , F 5 . 2, 2 ( 1 bX , F5. 2 ) , / ,68X , • UZS • , It X , F5 .2 ♦ INTG0378 
12 ( 15X,F5.2 )/,68X, 'LZS* , UX,F5.2,2( 1 5X, F5. 2 ) , / ,F 8X , • C-WS * ,11X,F5.2, INTG0379 
22( 15X, F 5. 2 ) * / » 63X, ' !3 C NX ' * 1 IX , F5. 2* 2 ( l 5X » F 5. 2 ) • / » 63X, • S I AM.' 1 DX, INTG3387 

3F5 .2 , 2 ( 15X, F5.2 ) » / ,6 3X, 'UZC ' , i-LX, F5. 2 , 2( 15X, F5.2 ) , / ) INTG0331 

CONTINUE I NTG0392 

GO TO 751 - - I NTG0383 

CONTINUE I NTG0384 

WRITE (6,731) MSBDIC INTG0385 

FORM AT (63X, 'TABLE', IX, 'ONE* , 10X,'PAST RUN • , / ,64X, A4 , 10X, ' OBSERVED* I NTG0386 
1, 10X, ' SI MULAT ED ' » / / ) INTG3337 

00 85 1=1, MAXI INTG3388 

WRITE (6, 735) MPOAY ( l ),TMPREC( t ,1) ,TMPREC( 1,1) ,TMOF (1,1 ) , TMI F ( l , t ) , I NTG 3389 
1TMBF( l , 1) ,OOUT( l ) , ST^ROS! I, l) (NTG0390 

FORMAT ( 66X, 12,' PREC t P' , 8X, F 5. 3 , 15X , F5. 3, / ,69X, • SUR R/0* , 27X, F5. 3, INTG0391 
l / , 6 8 X » • INT FL* ,28X,F5.3,/,68X, 'BASE FL* , 27X , F5 .3 , /, 6BX , • STM. R/0', )NTG0392 
27X.F7.1, LOX, F7. I , // ) INTG0393 

CONTINUE I NTG0394 

WRITE (6,700) (TITLE! I) ,1 = 1,18) INTGOOOO 

WRITE (6,737) INTG0396 

FORMAT (63X, 'TABLE' , LX, 'TWO* , l 0 X, • PAST RUN' ,/ ,46X, ' OBSERVED' i 2X , 1NTG0397 

!• SIMULATED' ,3X, '!UFF',3X , •% DIFF',/) INTG0393 

WRITE (6,739) 0M4X .PEAKS ( 1 ) , D I FTS , 0 1 FFMP . . INTG0399 

FORMAT! 1 IX, 'PEAK ( CE S;) ' , 23X »2(F7.l ,3X1 »FE .2, 1X,F5.1,/) 1NTG0400 

WRITE(6,741) PHRO, PH.RS ( 1 ) , 0 I F FP , C> l FFPP INTG0401 

FURMAT ( UX, 'PEAK ( HR ) • , 2*»X, 1 3 , 9X, I 3 ,9X , 1 3, 2X, F5. 1, / ) INTG0402 

WRITE (6,743) SUM! 1 1 , SUM ( 2 ) , L. I FFR , TUFF RP INTG0403 

FORMAT ( 11X, ' R/0 ( IN) • , 27X, F5. 2 , 5X, F 5. 2,6X,F5„ 2, 1X.F5.1 , A) INTG0404 

WRITE (6,745) APREC( 1), APREC(l) INTG0405 

FORM AT ( 11X * ' PREPC I P IN • ,23X , F 7 .3 , 3X , F7 .3 ) I NT G 04 06 

WRITE ( 6 , 7C 0 ) (TITLE (I ) ,1=1,18) INTGOOOO 

WRITE (6,747) MSBOIC * INTG0407 

FORMAT (63X, 'TABLE', IX, 'THREE* ,2X,'PAST RUN* . / ,64X, A4, 10X, • S I MUL ATE I NT G0408 
ID' ) I NTG0409 

DO 87 1 = 1, MAX I 1 NT G 041 0 

WRITE (6,749) MPOAY (I ) , EM IPS ( I , 1 ) , EMUZS ( I , 1 ) , EMLZSM , 1 ) , EMGWS ( I , I ) , l NTG04 1 1 

‘ ‘ INTG04 12 

INTG0413 
INTG0414 
I NT G 04 15 
INTG0416 
INTO 04 17 
INTG0418 


i noi / i nr ur t i l if cn ir ji it 1 i ■* c 

IEMBFNX ( It l),EMSl AM ( 1 , 1 ) ♦ EMU 1C ( l, It 
FORMAT ( 6bX • l 2 t2X# » I F S 1 1 1 OX f F 5 i2 »/ t 70Xt • UIS • t VOX ♦ F5 . 7 , / • 70X t 
1* L ZS • , LOX f F 5 • 2 t / » 7 OX » 1 GWS • » IOX , F b . 2 t / t 70X , • BFNX* 1 1 OX ,.F5 . 2 » / 1 
270 X. • S I AM • 1 1 OX » F5.-2.-t / f 7 OX# 1 UZC * » VOX, F5* 2 , // ) 

CONTINUE * 

CONTINUE I 

CONTINUE .• . , A :. .... ^ > . 

return ■ > 

FORMAT! •OPOINT NUMBER* ., I5. # 1 IS OUTSIDE PLOT LIMITS* ) 

L=K-l ... . . 

GO TO 113 

END .> , 

SUBROUTINE INTEG ( I FL AG , DT f Q , SUMt NO ) 


am 


40 


c . 


80 

100 


DIMENSION 
SUM= 0.0 
IF ( IFLAG.EQ.2) GO TO 80 
LU= NQ-1 
00 40 l =2 1 LU 

sum- suM+2**am 

SUMsISUM+QUM-QtNO) )«DT«.5 
RETURN 

LU~ NQ-3 

DO 100 I — 2 t LU ? 2 

SUM- SUM *-4 .*0(1 ) ♦ 2 • * Q. ( I>1) 

SUR= DT/3.*(Qm+SUM+4.*Q(NQ-l )^U(NQ) ) 

RETURN 

END 

FUNCTION TABLE (X.YtN.VALXt 
UIMtNSlLN XTTT. Vi 1 ) 


INTG041P 
INTO 04 20 
INTG0421 
INTGD422 
INTG0423 
•INTG04 24 
INTG0425 
I NTG0426 
INTG0427 
1NTG0428 
INTG0A29 
INTG0430 
INTG0431 
INTG0432 
I NTG0433 
INTG0434 
I NT 0043 5 
INTG0436 
INTG0437 
INTG043H 
.INTG0439 
I NTG0440 
INTG0441 
INTG0442 
I NTG0443 


B-65 


uuu ou cu uu 


SUBROUTINE TO perform a table lookup and linear interpolation 

VINT (XlfX2tYl*Y2) * ! VlfY2)*( VALX-X2) /I Xi-X?) ♦ Y2 

TEST FOR VALX OUTSIDE RANGE OF X TABLE 
IF ( VALX#GT • X ( l ) i GO TO 13 
1 = 2 
GO TO 100 

10 CONTINUE . 

1F( VALXVLT.X(N) I GO TO 20 
I = N 
GO TO 100 


. VALX WITHIN RANGE OF X TABLE 
20 CONTINUE 
J = N/Z 

1 = 1 

. 1F( VALX.GT.XI Jlf I=J 
30 CONTINUE 

IF i V AL X • LT • X 1 1 ) ) GO TO 100 
I - 1 1 1 
GO TO 30 

FIND INTERPOLATED VALUE 
100 CONTINUE 

TABLE = Y1NT ( XI 1-1 ) ? X( t ) « Y( I- l)»Yl I IT 

RETURN 

END 



INTG0444 

I NT GOA A 5 
INTG0446 
INTG0A47 
JNTGOAAB 
INT G04 4 Q 
INTG0460 
INTG0451 
INTG0452 
l NT G0457 
I NT GOA 54 
I NTGOA 5 5 
I NTGOA 56 
I NTG0A57 
INTO 04 5 3 
1NTG0459 
INTGOA6> 
INTG0461 
I NTGOA 62 
I NTG0463 
INTG0A6A 
I NT50465 
INTG0466 
I NT G O 467 
INTO 04 6 8 
I NTGOA 69 
1 NTGOA70 
INTG0A7! 
INTGOA72 


SUBROUTINE- LABELS I BCDXt BCDY , I PF? I ERR) 
COMKON/GSPD/ *QHK 

NULLV 

IG0S4 
VSPB 
XLL 
YOVAl 
AY 


1 

2 

l 

5 

6 

7 

8 


FC 

LOGICAL*! 
INTEGER 
INTEGERS 
INTEGER ^4 
REAL *8 
REAL *4 


wCWK 

,GSP1 

f UN I I N 

,1225^ 

f I ATN 

t OARFA 


I GDSC 

, 1 t»TMOVi 

,MAXPT 

, I P T 

. 1 SYM 

f RW0RK1 


IGDS5 

, IGQS6 

tlJSP 

tRU 

i HSPB 

tHSPL 


VSPL 

,M.ur 

v NXD 

* NY') 

•XSIZC 

tYSIZF 


YLL 

,XUR 

,YUP 

♦ X T I C 

rYTlC 

tXDVAL 


IKEY1 

, I PEY2 

1 1 K E Y 3 

t I KEY4 

t AX 

t BX 


PY 

• YLPOS 

f 





LCGYSW 

tNPTF 

tPRGf- 

f FkR HD 

t FA 

,FB . 

t 

G MO DEI 

, G S D l N 

tOUM 

tIRECU 





GSPIN, OU-* ( 2 ) 

P TL I D I 3 ) / 1 PLOT 1 f r NO «,• •/ 

COVAt (3 J fZc^OfjJ/'* * , * 0 * 

1 0 F ( 1 3 ) , 3 CD < ( 1 5 ) » AC 0 Y ( 1 8 ) , P CO Y2 (7 2 ) 
DYDVAL*K1RK-I36) 

xt i c 1 6 ) t yt ret 6 > , xdvau 6 r, ydvu 1 6 ) 


INTEGER *4 UN I TN , C A R $ U f NULL V ( 1 ) P l 
LOGICAL*! F A f PF f FC t G V CDE L 
LOG! CAL* 1 L0GXSW.tL3oYSW»NPrF f NRGEtEKRHD 
EQUIVALENCE I RWKK1 , RN )■. U5YM, IRNOI 
C CREATE PLOT T T T L ct L A >bL 

1CNT-IMXIX5 IZE7H$?3 P5 
RN=XLL~5.*HSFS 

CALI PTEX T ( IGOSCt I OF , I CNT /NULL V, NULLVt 1 ,RN* YUR*5.*VSPB ) 

C CREATE X AXIS LABEL ELEMENTS 

CALL PTEXT ( IGOSCt 3C*X-i l CNTt NULLV, NULL V # 1 1 PN t YLL-3 •5 J *VSPR ) 

C CREATE Y AXIS LAPEL ELEMENTS ~ 

CALL PLOTLIBCPY t BCD Y2t72fiRNC) 

RN=YUR * 6 • *VSP 3 

|RN0=M ! NO ( IPNU , I P I Xt YS I ZE/VS P B P5T 
r ; DO 40 I = It Ik NO 
RN '* RN - VS P-6 

CALL PTEXTUGDSC, 0CDY2 t I) , 1 1 N UL L V ,;NUL L V , l f 0 . 0 1 P N > 

40 CONTINUE 

IF M ERR # EQV 21 GO TO TO 

C CONVERT Y DIVISION VALUES TO EBCDIC FORMAT AND CREATE 
C THE TEXT ELEMENTS NECESSARY FOR DISPLAYING 
00 50 I = i t N.YD 
DYOV AL=Yf)VAl ( I) 

CALL TC3 { DYDVAL ♦ 1.1 • E'DVAL ) 

50 CALL PTEXTt IGOSC, FDVAL , II ,NUL L V, NULL Vt 1 , XLL- 1 3. *H'SP6 , YTI Oil ) ) 
C CONVERT X DIVISICN VA( UESTQ EeCDIC FORMAL AND CREAtr 
C THE TEXT ELEMENTS NECESSARY FOR DISPLAYING 
00 60 1=1, NXO 
DYOVAL = XDVAL ( I ) 

CALL TC3 ( tVYDVAL » 9 , tUVAL ) 

IFCXDVALm *NE* G# 31 GO TO 60 
' EOVALin * ZEROU) 

E OVAL I 2) ^ ZERO! 2 P 

EDVALT3) = ZERO! 3) V 

60 CALL PTEXT ( I GDSC , EOV AL 1 9, NULL V t NULL V tit XT ICC I )-6«*HSP0t 
1 YLL- l . 5* VSP6 ) 

C CREATE PLOT ID 

70 CONTINUE , - P . 

RN = XLLMXSIZE/2.-3.*HSPB) 

RETURN 

END 


IABL0001 
LABI 3302 
LABL0003 
LAB LOO 34 
LABL0009 
LA 91 0006 
LAPL0007 

lablooos 

LABI 0030 
LABI OOP 
LABI 00 1 1 
LA BLOG 12 
L'ABL 00 1 3 
LABI 00 14 
LABL0015 
LAOL 0016 
L ABL 0017 
LABLOOiB 
L ABL 0019 
LABL0020 
LA6L0021 
LABI 0022 
l ABL 00 23 
LABI 0024 
L ABL 00? 3 
L ABL GO 26 
LAHL0027 
LABL0028 
•LABL0029 
LABI 00 30 
LABI 0031 
L ABL 0032 
LADL0033 
L ABL GO 34 
L ABL 00 3 5 
LA6L0036 
LAB LOO 3 7 
LAB LOO 38 
LABI. 0030 
LABL0043 
LA BL 004 l 
LABL 3042 
L ABL 0043 
LA8L0044 
L ABL 00 45 
L ABL 0046 
L ABL 004? 
L ABL 004 9 
LABLC049 
LABL0050 
L ABL 0051 
LABL005? 
LAB LOO 5 3 
LAB LOO 54 
LABL0055 
L ABL 0058 
L ABL 0059 
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I 





HO 16 


H016CG 

:4‘ 

* 

♦ 

* 

* 

* 

♦ 

♦ 

♦ 

* 

* 

* 

* 

* , 

* 

* 

* 

* 

* 

* 

* 


f JTLE 

start 


I 


BEGIN 


LOOPY 


WRITTEN BY C G HOOKS 

CALL 


IBM HUNTS VI LLP 

PL360 IN , A , X , XMI N 9 XMAX* XL ABEL-? 

Y, YMI N v Y MAX * YLABEL > HEAD, NSYM) 


PL360 PLOTS N PniNTS USING THE COnR|)I- 
NATES FROM ARRAYS X AMO Y. THE 
SCALES ARB SET USING THF MAXIMUM AND 
MINIMUM VALUbS XHI Nf X M AX, YMI N# 

YJMAX • THE (iKAPU. IS L ABLER AT .THE TflP 
WIITH 13 WORDS FROM HE AD * W,l TH 13 
WORDS FROM YLABLF ON THE T FFT, AND 
18 WORDS FROM XL ABLE AT ! THE BUT TOM* 
ARRAY A IS SUPPLIED FROM THE MAIN 
PROGRAM FOR TEMPORARY ST OR AG r • ARRAY 
MUST HAVE A LENGTH OF AT LEAST 1540 
FULL WURDS. NSYM IS THE DEC I MAL 
EQUIVALENT OF THE PLOT CHARACTER. 

THF GRAPH WILL BE PLOTTED I F N S YM IS 
POSITIVE. IF NS YM IS NEGATIVE THE • 
POINTS WILL BE STORED BUT NOT PLOT ED 


PL360 

GO 


EXTKN 

ENTRY 

USING 

BC 

DC 

DC 

STM 

LR 

DS 

CNOP 

BAL 

US 

xe 

IT 

LR 

BALR 

USING 

LR 

MVC 

L 

ST 

L 

L 

L PR 


PR 360 
PL 3 60 
* 1 1 5 
15 1 GO 
X • 06 1 

CL5 • PL 360* 
14* 12* 12(13) 
0*1 
OH 
4.8 

1 * * + 76 
CL72 

0(72,1), Dl 1) 

1.8(13) 

13*4(1) 

13,1 

9.0 

*,9 

1.0 

N ( 48 ) * 0 ( 1) 
10* A 

10.AARRAY 
l It NSYM 
3*0(0*11) 

3*3 


STORE ADDRESSES QF ARGUMENTS 
LOAD RIO ADDRESS OF ARRAY 
STORE ADDRESS OF ARRAY FOR PRINTING 


LOAD R3 WITH NSYM 


♦ 

SR 

0*0 

TEST 

FOR 


ST 

OtIXLOG 




,ST 

0, IYLOG 

. • .1 ; 



C 

3.C1000 




BC 

4, POS 

MODE 

= 1 

T2000 

C 

3,02000 




BC 

2 , T3000 


K . ■ 


S 

3, C 1 0 30 

MODE 

= 2 


MVC 

IXL0G(4 j .ONE 


T3000j 

BC 

C 

15 * POS 
3.C3000 

• '•••••. a .. 


BC 

2 , T 400 0 




S 

3, C 2000 

MODE 

= 3 

•S' * 

MVC 

l YLOG ( 4) * ONE 




BC 

1 5* POS 


v • . 

T4000 

S 

3.C3000 

MODE 

= 4 


MVC 

I XL OG ( 4 ) * U NE 




MVC 

I YLOG ( 4 ) .ONE 



POS 

BCR 

0*0 




Y-L INEAR 
YH.INEAR 


Y^LOG 


L 

MVC 

A 

MVC 

L 

L 

L 

1C 
ST C 

A 

A 

BCT 

L 

L 

L 

L 

L 


20(72*10 ,0( 11) 

ll,XLABEL 

10* XLAB 

0(72*10) *0( 11 ) 
10 * A 


11 * YLABEL 
4.CTLY 


Rll ADORE SS OF HFADNG I 

STORE HEADING RIGHT ADJUSTED 1 20 
Rll ADDRESS OF XL ABLE 
ADJUST ADDRESS OF ARRAY 
STURE XL ABLE 72 CHARACTERS 
RESTORE ADDRESS OF ARRAY::.' 

Rll ADDRESS OF YLA3LE 


0*0(0* 11 ) 

0 * 2 2 6 ( 0* 13) 
1 1 * ONE 
10* ONEHUN 
4* L COPY 
10 * A 
11* XMAX 

7. XMIN 
12* YMAX 

8. YM1N 


ORIGINAL PAGE 13 
OF POOR QUALTTXi 


STORE CHARACTER 
INCREMENT 
INCREMENT 

BRANCH UN NOT FINISHED 
RESTORE ADDRESS UF ARRAY 
XMAX ADDRESS 
XM1N ADDRESS 
YMAX ADDRESS 
YMIN AUDPESS 


226 = 2 X 112 ♦ 2 
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1 

■ r -. MI 1 iPWIfIJI 


01600001 

0160300? 
01600003 
0160 1004 
01600005 
0160 >0^ 
016 3 0007 
01600008 
0160 3009 
0160 jO I O 
0160-^11 
0160 3012 
0160001 3 
0160)114 
0 16000 t 5 
01600016 
0160 1017 
016CC 1 8 
01600319 
01600020 
0160 0021 
016.00022 
01610023 
01603024 
01603025 
01603026 
01600027 i 
016000 ? 8 S 
016.0.3.029 j 
01600033 
01600031 
01600032 r 
01600033 
01600034 
01600015 
01600036 
01600037 
01600038 
01600039 
01600040 
01600041 1 
0160004? 
01600043 
01600044 
01600045 
01603046 
01603047 
01600048 
01600049 
01600050 
01600051 
0163005? 
01600053 
01600054 
01600055 

01600056 
01600057 
01600058 
0160005° 
01600060 
01600061 
01600062 
01630063 
01690064 
01600065 
01600066 
01600067 
01600068 
01600069 
01600070 
01600071 
01600072 
01600073 
01600074 
01600075 
01600076 
01600077 
01600076 
01600079 
01600080 
01600081 
01600082 
01600083 
01600084 
01603085 
01600086 
01600087 
0 160008B 




■ m, rl 









* 


TYMODE 

CLC 

I YLOG( 4) t GJNE 


BC 

7, YL I NSC 


LA 

It YMAX 


L 

15, At GiO 


BALR 

14,15 


BC 

0,2 


LER 

6,0 j 


LA 

1,YMIN 1 


L 

15, ALG10 


BALR 

14,15 


BC 

0,4 


STE 

OfLYMIN 


SER 

6 ,6 


Lfc 

4 , C T Y 


DER 

4,6 


S;TE 

4, TEMPY 


46 

0,0(12) 


Be 

0,0(8) 


STE 

0, ROOT 


La 

l.AROOT 


l 

15, AFRXPR 


BALR 

14,15 


BC 

0,6 


STE 

0 , YR00T5 


LE 

4,0(12) 


L 

2, SI XFX [ 

* ! 


. : 

YLSCLE 

STE 

4,228(10); I 


DER 

4,0 ! 


A 

rlO,CT 1120 


BCT 

2, YLSCLE 


BC 

15 ♦ T XMCJDE 

YLINSC 

LE 

0,0(0,12) 

SE 

0,0(0, 8) 


LE 

4, CT Y 


DER 

4,0 


STE 

4, TEMPY 


LE 

4, FIVE 


DER 

0,4 


LE 

4,0(0,12) 


L 

2 , S I XFX 

YSCALE 

STE 

4,228(0,10) 

: 1 ■ . ■ 

SER 

4,0 


A 

lOrCTl 120 


BCT 

2 t YSCALE 

' * 

TXMOOE 

CLC 

l XLOG ( 4 ) , ONE 


BC 

7, XLINSC 


LA 

1 , XMAX 


l 

15,ALG10 


BALR 

14,15 


BC 

0,8 


LER 

6,0 


LA 

ltXMIN 


L 

15, ALGIO 


BALR 

14, 15 


BC 

0,10 


STE 

0, LXM I N 


SER 

6,0 


LE 

4, CTX 


DER 

4,6 


STE 

4 , TE MP X 


LE 

0,0(11) 


DE 

0,0(7) 


STE 

0 , ROOT 


LA 

1 , A ROOT 


L 

15, AFRXPR 


BALR 

14, 15 


BC 

0,12 


STE 

0, XROOT 5 


LE 

4,0(7) 


L 

10, A 


A 

iOtXSCAL 

; ; j - 

L 

2 , S I XF X 

* 1 

XLSCLE 

STE 

4,0 ( 10) 


MER 

4,0 


A 

10, FOUR 


BCT 

2, XLSCLE 

XLINSC 

BC 

15 , STOPT S 

LE 

0,0(9, LI) 


SE 

0,0(0, 7) 


LE 

4, CTX 


DER 

4,0 


STE 

4,TEMPX 


L 

10, A 


A 

10, XSCAL 


L 

2, SI XFX 


TEST FOR LOG SCALE Y 

set up i nr» scale y 

LOG YMAX 
ISN 

LOG YM IN 
ISN, 

CALCULATE Y SCALE LOG 

FIFTH ROOT OF YMAX/YMIN 
ISN. .. 

YMAX 

STORE Y SCALE LOG 
/ FIFTH ROOT 

CONSTANT FOR Y CALCULAT! ON 

■ rv ''. f 

CALCULATE AND STORE Y SCALE 
227' = 2 X U2 *- 4 

TEST FOR LOG SCALE X 

SET UP LOG SCALE* X 
LOG XMAX 

I SN 

LOG XM IN 
ISN 


CALCULATE X SCALE LOG 

FIFTH ROOT OF XMAX/XMIN 
ISN 

XMIN 


♦ FIFTH ROOT 

.CONSTANT FOR X CALCULATION 
CALCULATE AND STORE X SCALF 


D16000B9 
01600090 
01600091 
01600092 
01600091 
01600094 
01600095 
01600096 
01600097 
01600091 
01 69 99 9° 
01600190 
016001 'M 
01600102 
01600103 
01600104 
01600105 
016C0106 
0160^107 
016001 OP 
016001 Oo 
016001 10 
01600111 
016001 12 
01600113 
016091 14 
01600115 
01600116 
016091 17 
016001 18 
0160 01 19 
01600120 
01600121 
0160012 ? 
01600123 
01600124 
01600125 
016091 26 
01600127 
0160 91 2 B 
01600129 
01600130 
0160CL31 
01600132 
016001 3? 
016091 34 
01600135 
0 1 6 0 0 L 3 6 
01600137 
016001 ° 8 
01600139 
016.00140 
01690 L 41 
01600142 
0169014? 
01600144 
01600145 
01600146 
01600147 
01600149 
01600149 
01600159 
01600151 
01600152 
01603153 
01609154 
016C91 55 
01600156 
01600157 
01600159 
01600159 
01609160 
016001 61 
01600162 
01600163 
01600164 
016001 65 
01600166 
01600167 
01600168 
01600169 
016001 70 
01600171 
01600172 
01600173 
016001 74 
016091 75 
01609176 
01600177 




X SCALE 


STOPTS 


LOOPXY 


♦ 

♦ 


LE 

DER 

L E 

STE 

AER 

A 

BCT 

L 

L 

L 

SDR 

SDR 

L 

16 

CE 

BC 

SE 

BC 

ITER 

BC 

CLC 

BC 

AE 

STE 

LA 

L 

BALR 

BC 

W 

» c 


4, F I VE 

0. 4 

4, 0(0,7) 
4,0(0, LO) 

4.0 

10, FOUR 
2 , XSC ALE 

14, N 

4,0(0,14) 

5, X 

6, Y 
2,2 
0,0 
10, A 

6 , 010 , 6 ) 

6,0(0,12) 

2, ERROR 

6 , 0 ( 0 , 8 ) 

4, ERROR 

6 , 6 

8 , YL I N ’ 

I YLOG ( 4 ) , ONE 
7 , Y L l N 
6 , 0 ( 0 , 8 ) 

6, OOY 

1 , ADOY 

15 , ALGIO 
14,15 
0,14 

6.0 


IN 

ME 

6, T EMP Y 


AE, 

‘"6# PT 5 


AW 

6, FZERO 


AO 

6, F ZERO 


ME 

6, El 12 


LE 

2, 0(0,5) 


CE 

2*0(0, 11) 


BC 

2, ERROR 


SE 

2,010,7) 


BC 

4, ERROR 


LTER 

2,2 


BC 

8, XL IN 


CLC 

I XLOG ( 4 ) , ONE 


BC 

7 , XL I N 


AE 

2, 0(0, 7) 


STE 

2, DDX 


LA 

1 , AC»DX 


L 

15, ALGIO 


BALR 

14, 15 


BC 

0,16 


LER 

2,0 


SE 

2 , LXM I N 

IN 

ME 

2.TEMPX 


LE 

4 , CTLOW 


AE 

2,PT5 


SER 

4,6 


AER 

2,4 


AW 

2, FZERO 


STD 

2,TEMPW 


L 

14, TEMPW+4 


STC 

3, 232 ( 14,13) 


A 

5, FOUR 


A 

6, FOUR 


BCT 

4, LOOPXY 


MV I 

0(10) ,X*F1« 


WRITE 

OUT GRAPH 


L 

11 , NSYM 


L 

3,0(0,11) 


LTR 

3,3 


BC 

2, PRT 

PRT 

BCR 

0,0 


DS 

OH 


R 14 ADDRESS OF NCHAR 
STORE NCHAR IN R4 
K5t ADDRESS OF X 
R6 AO DRESS OF Y 
R2 = 0 
R 0 - 0 

CALCULATE POSITION FOR NCHAR 


LOG Y 
ISN 


LOG X 
ISN 


238 = 2 X 112 + 8 
INCREMENT X ADDRESS 
INCREMENT Y ADDRESS 


PRT 


ERROR 


RETURN 
LA 
L 

BALR 
BC 
OC 
L 

SR 
A 

LNR 


131 

( 14,12), T,RC-0 
1, AARRAY 
15 , APR 363 
14.15 
0,18 

15 , NUPRT 

14, N 

0,0(0,14) 

0,4 
O.ONE 


TRANSFER to PR360 ROUTINE 
ISN 


01600170 
01600! 79 
01600180 
016001 81 
01600182 
01600188 
01600184 
01600185 
01600186 
01600187 
01600190 
01600180 
01600190 
01600191 
016001 °2 
01600193 
01600194 
01600195 
01600196 
01600197 
016001 Q 8 
0160 0! 9-9 
01600200 
01600201 
01600202 
01600203 
01600204 
01600205 
01600206 
0 160 02 0 7 
01600208 
01600209 
01600210 
01600211 
0160021 ? 
01600213 
01600214 
01600215 
01600216 
0160 02 L7 
01600218 
01600219 
01600220 
016002?! 

0 160 0? 22 
01600223 
01600224 
01600225 
01600226 
01600227 
01600223 
0160 0229 
01600230 
01600231 
0160023? , 
01600233 i 
01600234 
016002135 
01600236 
0 16002137 
01600238 
01600239 
01600240 
01600241 
01600242 
01600243 
01600244 
01600246 
01600246 
01600247 
01600248 
01600249 
01600250 
01600251 
0160 02 52 
01600253 
01600254 
01600255 
01600256 
01600257 
01600258 
01600259 
01600269 
01600261 
0160026? 
01600263 
01600264 
01600265 
01600266 


YMIN 
YMAX 
YLADlL 
HEAD 
NSYM 
ROOT 
ARGOT 


DS 

OS 

DS 

DS 

DS 

ns 

DC 



RC 

15 

v w f ■- w 

•|t NUPRT 

AARRAY 

ns 

F 

i 

APR360 

DC 

M 

PR360) 

XL AB 

DC 

F« 

59t>6 1 

ONE 

DC 

F» 

i* 

ONEHUN 

DC 

F» 

112' 

CTY 

DC 

E* 

50* 

PT 5 

DC 

E 1 

.5* 

El 12 

DC 

"i e 1 

112* 

CTX 

DC 

i t • 

100 1 

CTLY 

DC 

1 F' 

50* 

FOUR 

DC 

,F # j 

4 • 

tEMPX 

DS 

F 


IEMPY 

DS 

F 


TEMPV> 

DS 

D 


F-ZERO 

DC 

X'AEGOOQO 

FIVE 

DC 

E* 

5* 

S1XFX 

DC 

F* 

6* 

CT 1120 

DC 

F* 1120* 

XSCAL 

DC 

F 1 

6056* 

CTLUW 

DC 

E* 

560 0* 

Cl 000 

DC 

F» LOGO* 

C2000 

DC 

F 1 

2000 f 

C3000 

DC 

F* 

3000* 

I XL DO 

DS 

• F 


IYLOG 

DS 

F 


LXM IN 

OS 

F 


LYMIN 

DS 

F 


AFRXPR 

DC 

VIFRXPR#) 

At Gil 0 

DC 

V(ALOGiO) 

N ! 

ns 

F 


A 1 

DS 

F 


X I 

DS 

F 


XM t.N 

0$ 

F 


XMA'X 

DS 

F 


XL ABEL 

DS 

F 


Y 

DS 

F 



6056 = 
5600 = 


i 12 
112 


54 

50 


♦ 8 


ADDRESSES OF ARGUMENTS 


F 
F 
F 
F 
F 
F 

A l ROOT) 


NUMBER TO TAKE FIFTH ROOT OF 



DC i 

X* BO* 

FIFTH 

DC ; 

AL3 ( F I FT! 

DC 

E* .2* 

XR00T5 

DS 

F 

DDX 

DS 

F 

ADDX 

DC 

DC 

X ' 8 0 • 
AL31 DDX) 

YR00T5 

DS 

F 

DDY 

DS 

F 

ADDY 

DC 

DC 

END 

X'80* 

AL3 ( DDY ) 


01600267 
01600768 
01600769 
01600270 
01600271 
01600272 
01600271 
01600774 
01600275 
0160 1276 
01600777 
01600778 
01600279 
01600280 
01600281 
01600282 
01600283 
01600784 
01600205 
0 1600286 
0160 02 87 
01600788 
01600289 
01600290 
01600291 
01600292 
01600293 
01600294 
01600295 
01600796 
016007.97 
0160 02 98 
016007 99 
01600300 
01600301 
01600302 
0 16C0303 
01600304 
01600305 
01600306 
0160030^ 
01600308 
01600309 
01600310 
01600311 
01600312 
01600313 
01600314 
01600315 
01600316 
01600317 
01600318 
016003 1 9 
01600320 
01600321 
0160032? 
01600323 




B-71 


i 


SUBROUTINE PL4020(NPLOT f MODE , NCHAR , NP , X , Y , XM T N, XMAX * 
1 YMtN,YMAXrDCOX r BCDY, IOF,IERR) 

THIS IS THE MAIN ROUTINE FOR j GENERATING 2250 PLOTS 

INPUT PARAMETER DEFINITION: 


NPLOT 


NCHAR 
NP 
X , Y 

XMI Nf XMAX 
YMI N f YMAX 
BCDX, BCDY 
IDF 
I ERR 


CONTROLS NUMBER OF CURVES PER DISPLAY 
t NPLOT*! START NEW DISPLAY) 

(NPLOT- 2 SUPERIMPOSE CURVE ON. PREVIOUS DISPLAY) 
TYPE OF GRID 

.= I X-L INEAR AND Y-LI NEAR 
- 2 X-LOG AND Y-L I NEAR 
•» 3 X-L INEAR AND Y-LOG 
= 4 X-LOG AND Y-LOG 
SELECTS PLOT SYMBOL TO BtT USED 
NUMBER OF POINTS TO BE PLOTTED 

NAMES. OF ARRAYS CONTAINING THE X AND Y COORDINATES 
MINIMUM AND MAXIMUM VALUES FOR X COORDINATES 
MINIMUM AND MAXIMUM VALUES FOR Y COORDINATES 
CHARACTER LABELS FUR X AND Y AXES (72 CHAR MAX) 
NAME OF 72 CHARACTER HbAOlNG FOR EACH DISPLAY 
ERROR INDICATOR. NOT SET BY THIS ROUTINE 
SINCE ERROR MESSAGES ARE DISPLAYED ON THE 
2250 SCREEN. STANDARD MEANINGS ARE GIVEN BELOW, 

= 1 NORMAL RETURN , 

= 2 UNABLE TO CONSTRUCT READABLE GRAPH 
= 3 OFF-SCALE PLOT POINTS .ENCOUNTERED 


: i ■ ■■■■ ' 

COMMON/ GSPD/ WORK ,GSP1 

* UNIjTN i, I 2250 

, I ATN 

, DARE A 

J :■ 

1 

NULL V 

, IGDSC .IPTNCW 

, M AX P T , I PT 

, I SYM 

, RtVORK I 

i . • . 

2 

IG0S4 

» IGRS5 * T GO S 6 

#1 DSP :,RU "•] 

t HSPB 

rHSPL 


3 

VSPB 

t VSPL ,NGUT 

, NXD , NYD 

»XSIZF 

,YSI ZE 

i 

4 

XLL 

* YLL ,XUR 

t YUR , XT IC 

t YTIC 

, X-DV.AL 

S 

j . ; , . : • . 

5 

YOVAL 

1 1 KEY L ,1KEY2 

,T KEYS , IKEY4 

» A X 

, BX 7. 

6 

AY 

> BY t YLPOS 

i 




7 

LOGXSW 

, LOGYSW, NPTF 

, N RG F , ERRHf) 

, F A 

*FB 

J; ; • • 

8 

i FC., ^ 

, GMODc 1 , G SPIN 

* DUM , IRFCAL 




LOGICAL *1 GSPIN't 0UM(2.) 

REAL* 8 ERR I ( 6 ) / • NO POINT 1 , • S SPEC l F 9 , MED FOR • , • l OR MORN 
i •£ CURVES • if M » / 

REAL *8 ERR 2(6 ) / 'UNABLE T r » * 0 CONST R • , * UCT READ* , • ABLE GRA* , 

I • p h • , « : - • / 

RE AL*8 PLT I D( 2) / • <<< ERRO« , 'RS »> •/ 

DIMENSION Ad) 

INTEGER*^ UN I T N * 0 ARE A « N U L LV ( % ) » GS P I 

RE AL*4 LGXMAX , LCJCV.XiLf.LG-Y MAX , L 0 YM I N 

RE AL *4 XT I C { 6 ) , YTI C ( 6 ) , XOVAL ( 6 ) , YDVAL < 6 ) 

LOGICAL*! FA f FH » FC » GMODE l 

LOGICAL*! L 0 IX S W , L OR V S W ,NPTF, NRG F , E RR H D 

DIMENSION X ( NP ) » Y (NP ) 

RE AL*8 BCDX ( 9) , BCDY (9 ) , IDFf 9) , WORK (36 ) 

IERR = 1 

GO TO ( 1 Of 200 ) • NPLQT 
10 CONTINUE 

CALL SHIFT! 7 

LOGXSW = .FALSE. . ^ 7 . . T / 

LGGYSW = .FALSE. 7 / ^ 1 T 

FA=. FALSE. K.&. - 

IPTN0W=0 
cRRHD= .TRUE • 

I NPTF = . FALSE. 'c 

f NRG F=. FALSE. L ^ 

WRITE (NOUTt 1020) l DSP, < IDF (I) , I =!♦ 9 ) , NPLOT ,MOOEt NCHAR * NP , 

1 XMINf XMAXfYMINt YMAX 

13 CALL SGRIO v . 

IF (XMAX .LE. XMIN .OR. YMAX . L E. YMIN) GO TO 100 
GO T0( 20, 30*40, 50) t MODE 


MODE = 1 


X— LI NEAR Y-LI NEAR 


20 CONTINUE 

AX = XSIZE/(XMAX-XMIN) 

BX = XLL - A X*XM I N ? ’ 

AY - YSIZE/( YMAX-YMIN) 

BY = YLL - A Y * Y M I N 

XI NC = (XMAX - XMIN) /( FLOAT (NXD) - 
YINC •= (YMAX - YMIN) /(FLOAT (NYD) - 
GO TO 60 


MODE = 2 X-LOG 


Y-L I NEAR 


30 CONTINUE 

IF1XMIN .LF. 0.0) GO TO 100 
LGXMIN = ALOGICC XM IN ) 

LGXMAX = AL0G10 ( XMAX ) i 
LOGXSW = .TRUE. 

AX = XSIZE/( LGXMAX - LGXMIN) 
9X = XLL - AX*LGXM!N 
AY * YS I ZE/ ( YMAX - YMIN) 


PL4200H 
PL470OO2 
PL 420003 
PL420004 
PL 4? 00 05 
PL|420006 
PL'47 0007 
PL420008 
PL42000Q 
PL 42 00 10 
PL 42 00 1 1 
PL 4200 12 
PL 4700 13 
PL 4200 14 
PL4200I5 
PL420016 
PL420017 
PL 42 DO IE 
PL420019 
PL 47 CO 20 
PL 42 00 2 1 
PL 4? D 3 22 
PL 4 20023 
PL 42 00 24 
PL 42002 5 
PL420026 
PL420027 
PL42002S 
PL 420029 
PL 42 00 30 
PL420031 
PL420032 
PL4200 33 
PL420034 
PL42D035 
PL4200 36 : 

PL420037 
PL420033 
PL420039 
PL42004 0 
PL 42 0041 
PL420042 
PL 420043 
PL 42 00 44 
PL 4 2 ^04 5 
PL420046 i 
PL420047 j 
PL42004B J 
PL42Q049 
PL 4200 50 
PL42005I 
PL420052 
PL420Q53 
PL 42 00 54 j 
PL420055 ! 

PL 42 00 5 6 
PL42005 7 
PL 42 00 53 v 
PL 4 2 0 0 5 9 | 

PL423060 
PL420061 i 
PL420062 | 

PL 4200 63 j 
PL 42 00 64 
PL420065 
PL429066 
PL420067 
PL 4200 68 
PL420069 
PL420070 
PL420071 
PL420072 
PL420073 
PL420074 
PL 420075 
PL 47 00 76 
PL 42 00 77 
PL420078 
PL420079 
PL420080 
PL420031 
PL420082 
PL420033 
PL 42 00 34 
PL 42 3085 
PL420086 
P L 4 2 0 0 87 
PL423038 
PL420089 




OUU OUO O U UUO 


0Y = YLL - AY*YMIN f 

XI NC = t XM AX/ XM i N ) ** < l .'0/ I FLOAT! NXP1- 
YINC = ( YMAX- YM1 N ) / 1 FL OAT IN YD ) -1 • 0 1 
GO TO 60 


1 • 0 ) f 


MODE = 3 


X- LI NEAR Y-LOGl 


40 CONTINUE ^ _ 

IE ( YM IN *LE« 0.0) GO TO 100* 

LG YMAX = ALGGTQI YMAX ) 

LG YM I N = A LOG 10 ( YM l N ) 

LOGYSW = •TRUE. 

AX - XST It/ { XMAX- XMI N) 

8X = XLL - A X * X 4 l N 

AY = Y S 1ZE/ ( LGYMA X-L GYM IN I 

BY = YLL - AY*LGYMIN 

XI NC = (XMAX-XMIN)/( FlOAT(NXD)-l.O) 

YINC = ( YMAX/YMINI** ( 1.0/ (FLUATt NYD >-l .01) 
GU TO 60 


MODE = 4 X-LOG 

50 CONTINUE 

1 FI XM IN .LE. 

I F ( YM IN 
LG X M I N 
LGXMAX 
LG YM AX 
LG YM I N 
LOGXSW 
LOGYSW 


Y-LOG 


J. 


0.0) GO TO 100 
LE. 0)00 TO 100 
A LOG 1 0 l XM I N ) 

ALQG lOt XMAX ) 

A LOG 10( YMAX ) I 

A LOG i 0 ( YMI N ) 

.TRUE. 

.TRUE. 

AX = XSIZE/ (LGXMAX-LGXMIN1 
BX = XLL - AX*LGXMIN 
AY = Y$ I Zt / t LGYMA X-LGYM IN) 

BY = YLL - AY*LGYMIN 

XI NC = tXMAX/XMIN) «*(l.O/(FLOAT(NXD)-1.0) ) 

YINC = t YM AX/ Y MIN ) *f ( l . 0/ 1 F LU A T ( NY 0) - 1 . 0 ) I • 

60 CONTINUE 

XDVAL t i ) = XMI N 
YDVALt l ) = YM IN 

00 72 I “2 * NX 0 

I F C .NOT .LOGXSW )GO TO 70 > 

XDVALt I )=XDVAL< l-l)*XINC 
GO TO 72 

XOVAL(I) * XDVAL t l - 1 ) + XINC 
CONTINUE 
DO 82 1=2, NYD 
IF I .NOT .LOGYSW) GO TO SO 
YDVALt I )= YDVALt l-l ) * YI NC 
GO TO 82 

YDVALt I) = YDVALt l-l ) ♦ YINC 
CONTINUE 
IF(NP)210,210,90 

CALL POINTS < X, Y, NP t NCH AR t I, ERR ♦ XMI N, XMAX ♦ YMI N» YMAX ,PLT ID) 
. CALL LABEI S < BCDXi, BCD Y , LQF.IERR) 

ENTER PLOT TITLE IN DICTIONARY 
CALL DICTR Y t I OFT 

GO TO 205 - 

100 CONTINUE 

CALL PT EXT 1 1 GDSC, ERR 2 *48 ,NULL V ,NULLV, 1 ,0.0,YLL-10.*VSPB) 
WRITE ( NOUT f 1 030 ) ( ERR 2 1 I ) , l = i ,6 ) 

103 NRGF = • TRUE • 

1 ERR- 2 
GO TO 211 


70 

72 


80 

82 

90 

61 


CGNTROL PASSES TO STMT 200 WHEN NPLOT EQ 2 


200 


205 


210 


211 

212 

230 


CONTINUE 

WRITEt NO UTtlOlO) NPLOT, NCHAR , NP 
IFtNRGF )G0 TO 230 
IFTNP .LE. 0)(30 TO 2 10 

CALL POINTS t Xi f Y* NP t NCHAR » IERR ,XMIN , XMAX, YMIN, YMAX ,PLT ID ) 

CO NT I NU E 

I F t GMOOEl) GO TO 230 
CALL EXEC (I GDSC) 

CALL ATTEN 

GO TO 230 _ , 

WRITFtNGUT, 1030) (ERR It I), I = 1,6) 
l Ft NPTF )G0 TO 212 
NP TF = .TRUE . 

CALL PT EXT ( I GDSC , ERR l , 48 , NULL V ,NULLV , 1 , 0 . OtYLL-8. 5*VSP 3) 

I Fft FRRHO ) CALL PTEXT ( IGDSC,PLTID, 14 , NULLV, NULL V, 1 , 0. , YLL-5. 5*VSPB ) 
ER!RHD=. FALSE. 

GO TOt 8 1,230), NPLOT 
CONTINUE 
I E R R = 1 
RETURN 


PL 42 00 90 
PL42009L 

PL 42 00 92 
PL 4 20093 
PL 42 0094 
P L 42 00 95 

PL42D096 
PL420097 
PL420098 
PL420099 
PL 4 2 010 3 
PL 4 20 l 01 
PL 42 ^102 
PL 42 01 03 
PL 42 01 04 
PL 42 01 05 
P L 4 2 0 1 06 
PL420107 
PL42010S 
PL 42 010° 
PL 42 01 1 0 
PL4201 11 
PL4201 12 
PL 4201 13 
RL 42011 4 
PL420115 
R L 4 2 0 1 1 6 
R L 42 01 1 7 
RL4201 VS 
PL 420 119 
PL420120 
PL420I2 1 
PL 42 01 22 
PL420I23 
PL 42 01 24 
PL420125 
PL420126 
PL42 n l 27 
PL42012S 
PL 42 01 2 9 
PL 42 0130 
PL 42 01 31 
PL 420 102 
PL420133 
PL420134 
PL420135 
PL 420 136 
PL 420 l 37 
PL 420 13 B 
PL 42 01 39 
PL 4? 01 40 
PL 420 141 
PL42014? 
PL 4201 4 3 
PL 42 01 44 
PL 420 l 45 
PI 420146 
PL420147 
PL 42 0148 
PL 4201 4 9 
PL 420 l 50 
PL420151 
PL420I 52 
PL420153 | 
PL420154 
PL420155 
PL 42 01 5 6 
PL420157 
PL 42 01 58 
PL420159 
PL420160 
PL420161 
PL420162 
PL420163 
PL420164 
PL420165 
PL420166 
PL420167 
PL420168 
PL42016« 
PL 42 01 70 
PL 4201 71 
PL420172 
PL 42 31 7? 
PL420L74 
PL420175 
PL 42 91 76 
PL420177 
PL4201 78 
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non 


DUMMY ENTRY FOR TX4020 

ENTRY T X4020 ( NPLOT , A , NCHAR , Nt I NE , NCOL , IER) 

I WR l TE ( NOUT, 2 000) 

• |. RETURN 

1010 FORMAT ( * PL4020: NPLOT* 1 • 1 1 * • NCHAR= • f I2, • NP-*,T61 

1020 FUR MAT ( ' PL A 02 Ci PLOT- • , 15 , 3X ,9A8/ 10X, • NPLOT** tilt 1 MODE* 1 * 

1 11, * ,\CHAR=» , l 2 1 1 NP * • , I 5 , * XM INF * , X 12. A* 

2 • XMAX = 1 ,E 12 .4, • Y MI N* 1 1 E 1 2 • 4 , * Y ft A X - * , €12 *4 ) 

1030 FORMAT < * ***• »6A8) 

2000 FORMAT l * *♦** TX4020 ENTRY NOT IMPLEMENTED* J 
' ENO 


PL420179 
PL420180 
P1420LBI 
PL420 l 82 
PL42D1R3 
PL4201K4 
PL420185 
PL4201 86 
PL423137 
PL4201R3 
PL420139 
PL420190 
PL4201 91 


SUBROUT INF PLOT l DM OF ) 
COMPON/GSPD/WORK , OSP li 


1 

2 

3 

4 

5 | 

6 1 

7 

8 


NULI V 
IG0S4 
VSPB 
XL L 
YDVAL 
AY 


.. » UN 1 T N 

, I PTNGW y M AXP Ti 
• I OSP 


♦ I GO S 6 

• NOUT 
,XUR 

• IKFY2 
. YIP OS 


.12253 

♦ IP I 


, NXU 
.YUR 
. IKFY3 

f ti K G F 

. bur 


t HU 
t NYU 
t XT IC 
t l K EY A 

t ERR HO i 

» irecal 


, I ATN 
.ISYM i 
t HSP'fJ 
^XSIZE 
fYTIG 
# AX 


FA 


. BX 
» fb 


.IGDSC 
, IGDS5 
tVSPL 
.YLL 
.IKFYI 

♦ BY , . _ 

LOGXSW, LOCYSW, NPTF 
FC .GMOUE It GSPI.N 
INTFGER*4 S T AR ( 1 9 ) / 1 9* • **** 1 / 

LOGICAL*! GSPINt OUM(?) 

INTEGER *4 GSPl » U N 1 T N» , 0 A R t A , NU L L V 1 1 ) 

REAL* B IDF (9) f WORK {36) 

RE AL*4 T ttLCGN ( 5 ) / • T A BL 1 . 1 E 0 F * , I* . 

RE AL *4 XT IC ( 6 ) , YT I C ( 6 ) , XDVAL l 6 ) , Y OVAL ( 6 I , GLAB ( 16 ) 
LOGICAL*! LOGXSW, L UG YS Vi . N P T F t NR IGF , ERR HO 
LOGICAL*! f A f F B » EC • CHOI) El 
EQUIVALENCE ( WORK M U t GLAB ( 1 ) ) 

EQUIVALENCE ( RWOKK 1 . Y * X , X INC'* Y INC! 

GO TO Lilli 

WRITE ( NOUT v 1700) ( I DF (1 ) ,1=1,9) 

INITIALIZE GRAPHIC SERVICES 
CALL I NGSP ( GSP1 , NULL V ) • 

SPECIFY SUBROUTINE LINK/lOAD STATUS 
CALL SPEC ( GSP 1 tl» 30 1 37 * 38,40) 

CALL S P EC { GS P l , 2 . 1 7 , * 19 , 5 3,-5 6 ) 

INITIALIZE THE 2250 

CALL I NU£V ( GSP l * UN I TN, I 2250 ) 

INITIALIZE GRAPHIC DATA SETS 

CALL INGDS( 12250 t IGDSC tOA RE A) ' " 

CALL INGUSH 2250 1 I G0S5, 128 ) 

CALL I NGOS ( 1225 D * T GO $6, 512) 

SET NO SCI SSI OR I NO FOR ALL DATA SETS 
CA LL S SC I S { IGDSC? 3 1 

CALL SSC I S ( I G13S5 1 3 ) . . V . , 

CALL S S C I S ( IGDS6 * 3) 


.OAR FA * 
, RWORKlif 
, HS PL t 
tYSIZE , 
.XDVAL t 


AND ADJUST GRID SIZE 


11111 CONTINUE 

C COMPUTE X AND Y TIC MARK COORDINATES 
C PARAMETERS FOR TRUNCATION ERRORS 

XINC = (XUR - XLL )/{ FLOAT (NXD)-l.O) 

XT I C ( 1 ) = XLL 
DO 10 1=2. NXO 

10 XT 1 C ( I I = XT ICt l- 1 ) * XINC 
XUR = XT I C ( NXO ) 

XSIZE = XUR - XLL 
YSIZE ■= 0.7*XSIZE 
YLL = YUR - YSIZE 
Y1NC = YSIZE / { FLOAT ( NYD ) — 1 •■0 ) 

YT IC( l) = YLL 

DO 20 1=2. NYD •*“ v * 

20 YTIC(I) = YTICII-I1 * YINC 
YUR = YT I Cl NYD ) 

YSIZE = YUR - YLL 

C CREATE TEXT ELEMENTS FOR LIGHT PEN OPTION SELECTION IN IG0S5* 
X = ( RU - 21# *HSPS ) - 1.0 
CALL STPOS I jl GDS5 . X.4 *5* VSPB ) 

CALL P T EXT ( jl G 0 S 6 ♦ G L A b . 20. NULL V t IKEYI . 2) 

CALL PTE XT ( jl G DS 5 , GLAB ( 6 ) » 20 * N U L L V . 1 KEY 3 .2 . X , 1 • 5 * V S P B 1 
CALL PTEXT ( I G3S 5 . GLAB ( 11) , 12, NULL V . IKEY2 t 2. X « 3«*VSP3) 

CALL EXECUGDS5) 

CALL INCL ( IGDS5) > - 

C CREATE DICTIONARY STATIC ELEMENTS IN IGDS6 
CALL SC HAM ( I GDS 6 1 2 ) 

CALL STPOS { I GDS6f 1375. , 4095 • ) 

CALL PTEXT ( IGDS6 tTBLCUN ( l ) . 17 , - 1 , NULL V , 2 ) 

CALL PTEXT ( l GDS6 ♦ GL ABM 1 ) ,12, -2, NU LLV , 2,3000 • , 0. ) 

CALL PTEXT ( IGDS6,*GLAB { 14 ) , 1 2, ~ 3. NULLV , 2. 3QG0. , 1.5*VSPL) 

CALL EXECMGDS6) ! 

C CREATE ATTENTION LEVEL FOR 2250 

CALL CRATL< 12250. I ATN); r 

C DESIGNATE THAT BOTH CHARACTER 
C DETECTED BY TIHE LIGHT PEN ARE 
CALL ML PEO Li ATN .2 .4.1) 

C SET L. P • ATTENTIONS AND LIGHT F.K. 0 
CALL SLPAT ( I GDS5 , 1 ) 

CALL SLPAT ( I GDS6 i 1); 

CALL ML ITS ( 12250,3) 

C GENERATE ID FRAME IN IGDSC 

CALL STPOS ( I GDSC . 0 • , 2290. ) 

• CALL PTEXT { I GUSC , STAR, 74;nULLV .NULLV) 

CALL PTEXT { I GDSC. STAR, 74,NULLV, NULLV, l ,0«0« 1310. ) 

CALL PTEXT { IGDSC. IDF, 72 .NuLLV , NULLV . 1,66. ,2 J50. ) 

C CREATE VERTICAL BUX OUTLINE ELEMENTS 
Y= 1810* 

DO 1 1=1,5 S 

Y= Y+80 . 

CALL PTEXTUGDSCt STAR, 1, NULLV, NULLV,! ,0.0*Y> 


CODE AND COORDINATES OF CHARACER 
TO BE RETURNED BY RQ ATN SUBROUTINE 


PL ID 00 01 

PL 1 00002 
PL 1 000 03 
PL 1 00004 
PL 1003 05 
P L I D 00 06 
PL I COO 07 
PLIDOOOH 
PLID0009 
PL I D 00 tO 
PL I DOO M 
PLID00I2 
PL! 000 13 
PL 100014 
PL 10 0015 
PL VD 00 -16. 
PL ID 00 17 
PL! 000 18 
PL! DO 0 19 
PLI 00020 
PL ID 00 21 
PL ID DO 22 
P 1 1 0 0 0 2 3 
PLID0024 
PLI non 25 
PLI D 002 6 
PL1D0027 
PL 1 0002 8 
PLI 00029 
PL ID 0030 
PL l DC 031 
PLI D 00 32 
PL I D 00 33 
PL ID 3034 
PL 100035 
PL ID 0036 
PL I 00037 
PLID0038 
PLI 0003 9 
PL I 0004 y 
PL ID 0041 
PL I D €042 
PL 100043 
PL 1 00044 
PL 100045 
PL I D 00 46 
PL I 000 4 7 
PLID0048 
PL 10 0049 
PLID0050 
PL 100051 
PL 100052 
PL I D 00:53 
PLI 03054 
PL I D 00 55 
PL l D 0056 
PLID0057 
PL 1 0 005 8 
PLID0059 
PL I D GO 60 
PLI 00061 
PL 100062 
PLID0063 
PLID0064 
PL I D00b5 
PLIDOOOO 
PL I 00067 
PLI 00068 
PL 1 00069 
PL 1000 70 
PL 103071 
PLID0O72 
PL 10-00 7 3 
PL I D 00 74 
PLID0075 
PLI 00076 
PL 1000 77 
PL I 00078 
PL 1 00079 
PLI00080 
PL 10008 1 
PLI 00082 
PL 10 3083 
PLI 03084 
PL 100085 
PL 100086 
PL I DUO 87 
PL 1 00088 
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I CALL PTEXTUGDSC, STAR, l, NULLV.NIILLV, 1.4088. ,Y) 
C PLACE ID FRAME TITLE IN PLOT DICTIONARY 
CALL DICTHYI U)H 

1000 FORMAT ('1' ,T24, •«< ',9A3,» >>>• ) 

RETURN 

END 


PLID0089 
PLI 00090 
PLTDOO<H 
PLIP0092 
PL I D0093 
PLI 00094 





SUBROUTINE PL TEND ( IDUft j 


CUMMON/GSPD/WORK 

,G$Pl 

,UNITN 

1 1 2 250 

, l ATM 

l 

NULLV 

t 1GDSC 

, i p r now 

« MAXPT 

• IP! 

, ISYM 

2 

IGDS4 

t I GD55 

t I GDS6 

tins? 

t RU 

«HSP3 

3 

V S P B 

tVSPL 

t NOUT 

,NXU 

t NY D 

t X5I IE 

4 

XLL 

» YLL 

» XUR 

v Y UR 

t XT IC 

, Y T IC 

5 

YUVAL 

• I Kb Y l 

* I KEY 2 

1 1 KEY 3 

1 1 KEY 4 

t AX 

6 

AY 

* BY 

t YLPOS 

* - 



7 

LtlGXSW 

.logysw 

• N P T F 

.NRGF 

• E.RRHO 

• FA 

8 

FC , GMOOEl » GSPIN »DUM , I RECAL , IFL AG • 


tOAREA » 
t R WORK It 
♦ HSPL » 
rYSUC . 
tXDVAL t 
tBX t 

tFB t 


LOG I CAL* 1 GSPiNt 
REAL *3 END (li)/' END 


DU M } 

_ _ m • / t.WOR K ( 16 ) 

INTEGER* 4 GSPl,UNITN*NULLV( L) tOAREA 
LOGICAL*! FAtFHVPCtG^OOCl 

LOGICAL*! LDGXSWt LOGYSWit NRT F tNRGF ? EHRHD 5 

R E A L * 4 XT IC ( 6 ) # YT I Cl 61* XD V A L ( 6 I , YDV AL I 6 1 
I RE CAL =1 . 

CALL SHIFT1 

CALL PTfcXT ( lGDSCt END ? 4 tNULLVf NULLV f I t 1879* *2047 • ) 

CALL EXEC ( l GO SC I 

I ELAG=0 

YLPOS-3 796.0 

CALL JMDE V( 12250 ) 

CALL TMGSP(GSPl) 

100 FORMAT ( • ***END OF GRAPHIC PORTION' I 
RETURN 
END 


PEND0001 
PENOOOO? 
PEND0003 
PEND0004 
PENDOO 05 
PENDCO 36 
PEND0007 
PEND 00 03 
PENOOOO 1 ? 
PENDOOIO 
PENDOOil 
PENDOO 12 
PENDOO 13 
PENDOO 14 
PENDOO 15 
PENDOO 16 
PEN00017 
PENDDOVB 
PENDOO 19 
PEND0020 
PEND DO 21 
PEN00022 
PEND 0023 
PENDOO 2 A 
PEND0025 
PEND 00 2 6 
PEND 00 27 
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SUBROUTINE P 0 1 NT s ( X ♦ Y , N P • NC H AR f 1 :e R R . XMI N't X M A X , YM fN , YM A X f P LT I 0 ) 


COMMON/ CS P D/ WORK 


NOLL V 
IGDS4 
VSPB 
XLL 
YDVAL 
AY 


, 1GOSC 
, l GOSS 
t V SPL 
» YLL 
t I KEY! 

t B Y 

LOGXSWtL O.GYS.W » N PT F 
FC « GMPOF l T GSP I N 


• GSP1 » U N I 
f IRfNOWtMAXPT 
tIOSP 


• Io!)S 6 
t NUUT 
f XUR 
f IKFY2 
tVllPOS 


> I 2250 
if I PT 1 
! »RU 
,NYD 

txric 

t 1 KEY A 


TUN 
, 1 SYM 
,HSPB 
v XS l/E 
tYTIC 
9 AX 


t OA° f A , 
fRWQRKi, 

t 


9 HS PL 
1 9 Y S I 7E 
9 XDVAL 
,BX 


pFA 


pFB 


ENCQUNT 1 t • ERED 


t NXU 
rYUPi 
9 IKE Y 3 

i NR G F f ERRHO i 

„ . .... f CUM t l RFC AL 

LOG ICAL*1 GSP I Nt DUM<2> 

RE AL *8 ERR3 ( 6 )/ • OFF SCALS'C POINTS* *• 
l f Wf RK (36) f PL T I D( 2 ) 

LOG l CAL *1 ' F A t F B 9 F C j G MODE i 
LOG I CAL *1 LOGXSiW, LIIGYSW 9 OFSC 9 NPTF f NRGF, tRRHU 
INTEGERS UN I T N • OAR h A 9 N UL L V ( 1 ) 9 CSPI 

RE AL*4 XPDS ( 36 } rYPOS ( 36 ) , XTIC( 6 ) » YT 1C (6)9 XDVAL (6) , YDVAL (6) 
LOG I CAL* 1 OFF 
DIMENSION X(NP)*YINP) 

ISAVE^NP 
OF SC=. FALSE. 

IF ( FAIGO TO 102! S - 

I P T N OW~ I P T N UW+ NP 
IF < I PT NOW- M A X PT ) 1,1,7 
T CONTINUE 

NP=NP-( IPTNOW-MAXPT) 

FA= .TRUE. 

WRITE(N0UT f 20CC}MAXPT 
IFINP) L 02« 102 9 l 

DETERMINE PLOT SYMBOL' TO RE USED. A VALUE OF 0 IS RETURNED 

IF The selected plot symbol is •points* or a non-displayable 

SYMBOL. IN THE LATTER CASE •POINTS 1 IS THE DEFAULT. 

1 CONTINUE 

CALL PLOTS M t N CHAR 9 I S Y M ) 

IF ( I SYM .EQ.: 0)GO TO 5 
ASSIGN 2 TO M 
DO 3 K= 1 f NP 
OFF=. FALSE. 

IF ( LOGXSW ) XP OS ( I )=AX*AL0G10 IX { K) ) + B X 
I F ( .NOT .LOGXSW ) XPOSi 1 ) = AX*X ( K I > BX 
I F ( L OG Y S W | YP 0 S ( I } = A Y*A LOG 10 (Y { K ) f + B Y 
I F f .NOT .LQGYSW ) YPOS (1 ) = AY*Y ( K ) ♦ BY 

GO TO 75 " 

2 CONTINUE 

I F< OFF ) GO TO 3 - 

CALL PTE XT ( I GDSC 9 ISYM 9 I t NUL LV 9 NULL V 9 1 »XP0S(1) ,YPOS( 1) > 

3 CONTINUE 
GO TO I GO 

5 CONTINUE 

ASSIGN 80 TO M 
A 41 1 ■ 

N = 1 
NL = NP 

I F ( N P - 1 P T ) 1 0 r 1 0 9 2 0 .. 

j 2 = np v-.t 

GO TO 70 

_ 2 * .X * .*:* . .. v . - - - ■ — »«- .. ♦ ■ . -r 

U2~= I PT -U'-. 

GO TO 70 

NL = NL - I PT .. . „ 

J1 = J2 + I * ‘ ■■■■'! 

IF ( NL- 1 PT ) 60» 50 9 65 .... , . . 

N = l 

GO TO 65 , k ^ . 

J2 = NP . : ' ‘ " *' 

N = 1 - A ; .. .i 1 , 

GO TO 70 

J2 = J2 + IPT „ 

K * Jl ■ 1 " # -l ^ - 

L = J2 - Jl t l . .. . .. . .. 

DO 80 I = 1 9 L 
K - K ♦ I 

I F ( L OG X S W ) XP 0 S ( l ) ~ A X ♦A L DG 1 0 ( X ( K ) ) + BX . 

IF ( *NOT .LOGXSW ) XPOS ( I I^AX^X ( K I + BX 
IF( LUGYSW) YPUS < I ) =AY^AL0G13 ( Y ( K) ) + BY 
I F ( . NOT • LUGYSW ) YPOS ( il ) =AYtY ( K ) + BY 

CONTINUE ‘ r " 

_ .OR. X ( K ) .GT. XMAX ) GO TO 78 

.AND. Y(K) ,LE. YMAXIGO TO 72 


10 

. t. 

20 


40 


50 

60 


65 

70 


75 


78 


79 
72 

80 


XM I N 
YMIN 


IF 1 XiK ) .LT. 

IF ( Y ( K ) .GE. 

continue 

OF F = . TRUE • * ' ' 

I F ( OFSC JGCJ TO 79 *,V* 

OF SC= . I RUF • 

CALL PTEXTI I GOSC 9 ERR 3? 48 9 NULL V t NULL V 9 1 1 0. 0, YLL-7. 0*VSpn ) 

IF ( ERRMD )CALL PTE XT (IGDSC ♦ PLT I O f L4 tNULLVi NULLV? 1 9 0 . 9 YLL-5 .5*VSPB ) 
BR.RHO= • FALSE. 

WR I TC< NOU T ,1000) XI X) 9 Y C K I 
GO TO M , ( 2 9 80) 

CONTINUE 


FNTS0001 
P NT S DO 0? 
PNTS0003 
PNTS0004 
PNTS 0005 
PNTS03D6 
PNTS0007 
PNTS0008 
PNTS0009 
PNTSOOVO 
PNTSOOU 
PNTSOO 12 
PNTS0013 
PNTSOOU 
PNTSOO 15 
PNTSOO 16 
PNTSOO 17 
PNTSOO 1 R 
P NTS 001° 
PNTS002Q 
PNTSOO 2 l 
PNTSOO 2 2 
PNTS0023 
PNTS0024 
PNTSOO? 5 
PNTSOO 26 
PNTSOO 2 7 
PNTSOO 2 B 
-PNTS0029 
PNTS0030 
PNTS0O31 
PNTSOO 3 2 
PNTSC3033 
PNTS0034 
PNTS0035 
PNTS0036 
PNTS0037 
PNTSOO 30 
PNTS0039 
PNTS0040 
PNTSOO 41 
PNTSOOA2 
P NTS 0043 
PNTS004A 
PNTSOO 45 
PNTSOO 46 
PNTSOO 47 
PNTSOO A 3 
PNTS0049 
PNTSOO 50 
PNTSOO 51 
PNTSOO 52 
PNTSOO 33 
PNTSOO 54 
PNTSQ055 
PNTS0056 
PNTSOO 5 7 
P NTS 005 8 
PNTS0059 
PNTS0060 
PNTS0061 
PNTS006? 
PNTSOO 6 3 
PNTS0064 
PNTS0065 
PNTS0066 
PNTSOO 6 7 
PNTSOO 68 
PNTS0069 
PNTS0070 
PNTSOO 71 
PNTS0072 
PNTS0073 
PNTSOO 74 
PNTS0075 
PNTS0076 
P NTS 007 7 
PNTS0078 
PNTS00 7 9 
PNTS0030 
PNTS0081 
PNTS00^2 
PNTSOOB3 
PNTSOO 84 
PNT50085 
PNTSOO06 
PNTSOO 87 
PNTSC0B3 
PNTSOO 89 


( 




B -78 



9Q CALL PP NT II GDSC* XPOS » YPOS.tNUL L V*NULLV » 1 * L * 1 1 1 I 

GO TnU00.4Q)..»iN 

100 continue 

: CREATE ZERO POSITION LINES TP ON GRAPH 

: X( 0) ~BX AND YIOI-BY FOR LINEAR GRAPHS 

IKLOGXSWIGO TO 101 

IFIBX .LF. XLL .OR. BX .GE. IXURIGO TO 101 
CALL STpnSUGOSCVBX, YLL) 
i CALL PLINfct l GOSC ,' OX , YUR I 

101 I F ( L OGYSW ) GO TO ID? 

IF BY .LE. YLL .OR. BY .GF. YUR I GO TO 102 
CALL ST POSH GDSC, XLL, BY I 
CALL PL INEI IGDSC,XUR,BYI 

102 CONTINUE 
NP S I SAVE 
dc turn 

1000 FORMAT ( • ♦♦♦OFF-SCALE POINT X = * . E12 .5 . 5X * «Y * • 
2000 FORMAT ( • ♦♦♦MAX NUM3ER POINTS - • . I * - EXCEEDED* I 
END 


X = • .E12.5 *5X . JY 




.£12.5) 




P NT $0090 
PNTS009L 
PNTS0092 
PNTS009T 
P NTS 009^ 
PNTS 00°5 
PNTS0096 
PNTS0097 
PNTS0098 
PNTS0099 
PN IS 01 00 
PNTS0101 
PNTS01 02 
PNTS0103 
PNTSOIPA 
PNTSO l 05 
PNTSOl 06 
PNTS0T07 
PNTS0108 


I 




c 

c 

c 

c 


c 

c 


42 

43 


41 


ROUTINE TO PRINT PL360 GRAPH 
WRITTEN BY C G HOOKS IBM HUNTSVILLE 

SUBROUTINE PR360 ( ARRAY) 

dimension Array i 1540) 

EQUIVALENCE l I FST » A! 

INTEGER *4 TEST / # DAYS 1 / 

A = ARRAY! 1490) 

A l = ARRAY! 1491) 

A2 = ARRAY (1492) 

A3 = ARRAY 11493 ) 

A4 = ARRAY ( 1494) 

TEST FOR JUST PRINTING THE FIELD OF ARRAY WITHOUT SCALES 
IJ = 1515 
JI - 1520 

If I ARRAYUJ) - ARRAY(JI) ) 41,42,41 

CONTINUE 

WRITE <6, 43) ARRAY 
FORMAT (23A4) 

RETURN 


It 561 


CONTINUE 

WRITE (6,6) ( ARRAY I 1 ) t I 
FORMAT ( 2 A 4 ? 8X, 26A4) 

WRITE (6,9) 

FORMAT ( !6Xf 1H + , 5(1 9H— 

WRITE (6,7) (ARRAY! 1 )• I = 57,1456) 


1H>) ) 


. FORMAT TA4t F 1 1.2 , ].HE 

1 2A4? 7X f 1H 

2 2A4 f7X> IH 

3 2A4,7X, lh 

4 2A4 , 7X j IN 
WRITE (6,51 (ARRAY! 

5 FORMAT ( A4 , F 1 !• 2 , IH+ , 26A4, A1 , I'M* 

IF ( TEST . EQ • IEST ) GO TO 5 3 
WRITE (6,8) ( ARRAY ( I ) , I « 1516,1520) 

8 FORMAT (16X, lH + » 5(19H— — 

1 9X , F1.1 • 0, 5 ( 9 X , F 1 1 • 0 ) / ) 

' ' ‘ ( ARRAY ( I ) , l = 1485, 1512) 


25 A4 » A l j .1 H 
, 25 A4» A l , IH 
, 2* 5 A4 , A it IH 
, 2,5 A4 , A 1 , 1 H 
, 21 5 A4 1 A 1 , 1 H 

) t I 


= 1 4 5 7t 1484) 


/ 2 A4 , 7.X , 1 H I 
/ 2 A 4 , 7 X , IH 
/ 2 A 4 * 7 X , 1 H 
/ 2 A 4, 7 X, IN 
/ 2A4»7XrlH 


25A4, At » IH I 
, 2 5 A 4 , A L , IH 
, 2 5 A4 , A 1 , lh 
,? 5A4 1 A l , l H 
,2 5A4, A l , 1 M 


r IH* ) / 


WRITE 16,6) 

RETURN 
50 CONTINUE 
WRITE (6,11) 

11 FORMAT ( IfeX , i ♦ODODOODNNNNNNNNNDDD+OPDDJ JJ JJ JJ J JFFFFFFt • , 
£ •FMMMMMMMMAAAAAAAAMM+M.MMMMiMJJJJJ , 

£ • JJAAAAAAAASSSSSSSSS+H) 

10 FORMAT ( 19 X, •OCT* NOV. DEC. JAN. ~FEB. •, 

£ « MARCH APRIL MAY JUNE JULY • • 

£ * AUG. SEPT. •) 

RETURN 

END ' 


30500001 
3050 ICO? 
30600003 
30500004 
30500005 
30 5 C 10 06 
306« C007 
30500008 
3 050 00 0 Q 
30500013 
30500011 
30500012 
30500013 
305000 V4 
30500015 
30500016 
3050001/ 
30500018 
305000 L 9 
30500023 
30500021 
3050002? 
30500023 
30500024 
30500025 
30500026 
30500027 
30500028 
30500029 
30500030 
30500031 
30500032 
30500033 
30500034 
30500035 
30500036 
30500037 
30503033 
30500039 
30500040 
30500941 
30500042 
30500043 
30500044 
30509045 
30500046 
30500047 
30500048 
30500049 
30500050 
30500051 
30500052 
30500053 
30500054 


SUHROUT INE PRE CHK ( OP GPM , DRHP , OR5F , VW I N , SORT , NATRH ) 

C CHECKS PRECIPITATIDN-STREAMFLOW ANOMALIES AND ADJUSTS PRE C I P 1 T AT I ON 
C WHERE NECESSARY 

OIMrNSlCJN URGPM(366),DRHPI366.24) .DRSFI366) 

INTEGER DAY, HOUR, SGHT 
AHP * 0.0 
NRHA = 24 - NATRH 
RGPM ■ DRGPH ( 90 ) 

DAY = 90 
RMWR = 1.25 

100 DAY - DAY ♦ l 

IP I DAY ,GT. 200 .OR. VWIN .GT. 750.01 RMWR = 2.00 
RPR I SB = (DRSF(DAY) - DRSF I DAY-ll ) / VW IN 
DO 101 HOUR = 1,24 

IF I HOUR ,FQ. SGRT+1 ) RGPM = DP GPM I DAY) 

AHP = AHP * DRHP( DAY ,HOUR ) * RGP M 
IF (HOUR .NE. NRHA) GO TO 101 
RWRAIN = AHP 
AHP =0.0 

101 CONTINUE ■ •• ' 

IFIRFRISE .GT. RWRAIN . AND, RFRISE .GT. 0.11 GO TO 102 

IP ( I RWRAIN .GT. RMWR .AND. .RFRISE .IT. 0. 02#P WP A I N! .OP, (RWRAIN 
1 .GT. 3.00 .AND. RFRISE ,LT. 0.05+RWRAIN)) GO TO 104 
GO TO IC8 

102 IF ( RWRA IN .GT. 0.05) GO TO 103 
RAA = RFRISET2.0 - RWRAIN +1.0 
DRHP I DAY , 1,3 ) = RAA 

WR ITE ( 6,1) DAY, RAA 

1 FORMAT I /luX, ' FOR DAY ', 14, IX, • RAIN ADDED OF',F7.2) 

GO TO 1 08 

103 RAM = 2 .0*RFR I SE/RWR AI N 
GO TO 105 

104 RAM = 10.0+KFKISE/RWRAIM 

105 IF (RAM .LT. 0.0) GO TO .08 I 

WRITE (6, 2) DAY, RAM, RWRAIN 

2 FORMAT I/5X, • FOR DAY • , 1 4 , IX , • R ATN ADJUSTMENT MULTIPLIER IS',F8.4, 
1 IX, 'RECORDED RAIN (S' ,F7.2) 

DO 106 'HOUR = l, NRHA 

106 DR HP ( DAY , HOUR ) = DRHP ( DAY , HOUR )*R AM 
IF I NATRH . E 0 . 01 GO TO 108 

NFRHA = NRHA + l 
DO 107 HOUR = NFRHA, 24 

107 DRHP ( DAY— l * HOUR ) = DRHP IDAY-t , HOUR ) *RAM . 

108 IF (DAY .NE. 2731 GO TO 100 

RETURN - 

END 


Pfir.KOOOl 
PRCKOO 0? 
PRCK0003 
PRCK0004 
PRCK 9093 
PRCKOO 96 
PRCK0097 
PRCK0008 
PRCKCOOO 
PRCK0010 
PRCK OP 11 
PRCKOO l 2 
PRCKOO I? 
PRCKOO 14 
PRCK0015 
PRCKOO 16 
PRCKOO 1.7 
PRCKCP18 
PRCK 00 1 ° 
PRCK 0020 
PRCK 00 2 1 
PRCK 00 22 
PRCK0023 
PRCK0024 
PRCK 00 2 5 
PRCKOO 2.6 
PRCK0027 
PRCK 0028 
PRCK0029 
PRCK 0030 
PRCK0031 
PRCK 00 32 
PRCKO033 
PRCKC034 
PRCKOO 35 
PRCK 0036 
PRCK0037 
PRCK0033 
PRCK0039 
PRCKOO 40 
PRCK004 l 
PRCK0042 
PRCK0043 
PRCK0044 
PRCK0045 
PRCK0046 


0 


Of 
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SUBROUTINE PREPRD ( RG PM , DRHP , DAY, HOUR , DPY *PRDt PEP ?PRH ) 

DIVIDES HOURLY PRECIPI TAT IUN TOTALS AMONG PERIODS FOR SMALL BASINS 
DIMENSION ORHPI 366,2V) t PE4P141 
INTEGER DAYt DPYt HOUR , PRD 
PEP =0.0 

IFIPRH .EQ. 0.0) RETURN 
IF I PRO .EQ. 1) GO TO 100 
PEP = PE4P { PRD ) 

RETURN 

100 LHOUR = HOUR - 1 
LDAY * DAY 

IF C LHOUR .GE. 1) GO TO 101 

LHOUR = 24 

LDAY = DAY - 1 

IF CL DAY .EQ. 0) LDAY = 365 

IF I LDAY .FQ. 365) LDAY = 59 

IF I LDAY .EQ. 59 .AND. DPY-.hQ. 3661 LDAY - 366 


101 PRLH = RGPM^ORHP ( LOA Y» LHOUR ) 
NHOUR = HOUR ♦ 1 

NDAY » DAY 

IF I NHOUR .LE. 24) GO TO 102 
NHOUR =1 

CALL DA YNXT { NDAYt DPY ) 

102 PRNH = RGPM*DRHP ( NDAYt NHOUR ) 


IFIPRH .GT . PRLH * AND. PRH .G 
GO 10 104 

103 PE4PI1) = 0.10 
PE4PI2) = 0.28 
PE4PI3) = 0.46 
PE4P (4 ) = 0.16 
GO TO 108 

104 IFIPRH .LT. PRLH .AND. PRH .1 
GO TO 106 

105 PE4PI1) = 0.28 
PE4PI2) = 0.1 0 
PE4PI3) = 0.16 
PE4PI4) =0.46 
GO TO 108 

106 IF I PRNH .GE. PRLH ) GO TO 107 
PE4P ( 1 ) - 0.46 

PE4PI2) = 0.16 
PE4P ( 3 ) = 0.28 
PE4PI4) = 0.10 
GO TO 108 

107 PE4P(n > 0.10 
PE4PI2) = 0.28 
PE4PI3) = 0.L6 
PE4PI4) =0.46 

108 DO 1C9 KPKD = 1,4 

109 PE4PIKPRD) = PE4P (KPRD)*PRH 
PEP = PE4PI1) 

RETURN 

END 


.GT. PRNH) GO TO 103 


.LT. PRNH) GO TO 105 


PREP 00 Ot 
PREP 0002 
PREP n 003 
PREP 00 04 
PRFP0005 
PRFP0006 
P RE POO 07 
PREP0008 
PREP 00 09 
PREPOOIO 
PREP 00 11 
PRFPOO 12 
PREPOOU 
PREP0014 
PREP0O15 
PREP 00 16 
PREP 00 17 
PREPOQ 18 
PREPOOIO 
PREP 00 20 
PR6P0021 
PREP 0022 
PRFP0023 
PREP0024 
PREP 0025 
PREP 00 26 
PREP0027 
PREP0028 
PRFP0029 
PREP 00 30 
PREP 003 L 
PREP0032 
PREP 0033 
PREP 00 34 
PREP0035 
PRFPOO 36 
PREP0Q37 
PREP 00 3 8 
PRFP0039 
PREP0040 
PREP0041 
PREP0042 
PREP00 4 3 
PREP0044 
PREP0045 
PRFPOO 46 
PREP 0047 
PREP0048 
PR FP 0049 
PRFP0050 
PREP0051 
PREPOO 52 
PREP 00 53 


SUBROUT I Nt RTVARYICTRI «*SATR I , BTR 1 # CHCAP , M3TRI , MXTRI f NCTR l ,EXGPV f 
l LSHFT, IFCFS) 

DIMENSION A WS BIT (99 It BTR 1 1 99 I , CTR 1(99) , SATR 1 ( 99 ) 

LOGICAL LSHFT 
DO 100 K I A = l , MXTRI., 

SATR l ( K I A ) - 0.0 
100 AWSBIT(KIA) = 0.0 
LSHFT = .FALSE. 

FMXTRI = MXTRI . 

FNBTRl = NBTRI 

FNPTRI = NCTR I 

FF X = TFCFS 

TF MR T = 0. L* CHCAP 

I F ( TFX .LT. TFMRT) TFX = TFMRT 

IF (FNPTRI . EQ . FMXTRI .AND. TFX .EQ. TFMRT) RETURN 
FNTRI = FNBTRmCHCAP/TFX)**EXGPV ♦ 0.5 
IF ( FNTRI .LT. 1.0) FNTRI; = 1.01 
NCTR I = FNTRI 


FNSTRI = NCTR I 

IF ( FNSTRI .NE. FNPTRI) LSHFT = 
IF C .NUT. LSHFT) RETURN 
IF (FNPTRI .GT. 99.5) GO TO 10 1 
FONT R I = ABS( FNSTRI - FNPTRI) 
IF ( PCNT R I .LE. 1.1) GO TO 1 01 


.TRUE. 


101 


102 


103 


104 

105 


106 

107 

108 
109 


IF (FNSTRI .GT. 
IF (FNSTRI .LT. 
NCTR 1 = FNSTRI 
KB 1 = 0 
KB 2 = 1 
KB 3 = 0 


FNPTRI) 
FNPTRI ) 


FNSTRI = 
FNSTRI = 


FNPTRI 

FNPTRI 


1.0 

1.0 


KBi = 

KBI ♦ 

1 





IF (KBI 

.GT. 

NBTRI 

) 

GO 

TO 

105 

KB4 = 

0 






WSBIT 

= BTR I 

(KBI ) 

/FNSTRI 


KB 4 - 

KB4 + 

1 





IFIKB4 

.GT. 

NCTR I 

> 

GU 

TO 

102 


AW S B l T ( KB2 ) 

KB 3 = KB 3 + 

1 F ( KB3 .LT. 

KB3 = 0 
KB 2 = KB 2 ♦ 1 
GU TO 103 

IF (FNPTRI .GT. 98.5) 
DO 107 Kb6 = I* NCTR I 
DO 106 KB7 - " 
SATRKKB6) = 
CONTINUE 
DO 1C9 KB 5 - 
CTRl (KB5) 

RETURN 
ENO 


= AWSBIT { KB2) + WSBIT 
1 

NBTRI) GO TO 104 


GO TO IGfl 


It KB 6 

SATR I (K 86) 

U MXTRI 
= AWSBI T ( KB5 ) 


V AWSB IT( KB7) - CTP I (KJ37) 


RTVYOOOl 

RTVY0002 
RTVY0003 
RTVYOO 04 
RTVY0005 
RTVY0006 
RTVY0007 
RTVY0009 
RTV Y0009 
RTVYOO LO 
RTVYOO 1 1 
RTVY0012 
RTVY0013 
RTVYOO 14 
RTVY0015 
RTVYOO 16 
RTVYOO 17 
RTVYOO IB 
RTVYOO 19 
RTVYOO 20 
RTVYOO 21 
RTVYOO 2 2 
RTVYOO 2 3 
RTVYOO 24 
RT ( VY 0025 
RTVY0026 
RTVY0027 
RTVY0023 
RTVY0029 
RT|VY0030 
R T|VY 00 31 
RTiVY 00 32 
RTiVY 00 33 
RTVYOO 34 
RTiVY 00 3 5 
RT VY 0036 
RTVY0037 
RTVY0038 
RT VY 0039 
RTVY0040 
RTVY0041 
RT VY 904 7 
RTVYOO 49 
RT VY 0044 
RTVYOO 45 
RTVY0046 
RTVYOO 4 7 
RT VY 004 3 
RTVY0049 
RTVY0050 
RTVY0051 


f 












: 
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SUBROUTINE: SGRID 
COMMON/ GS PD/ WORK 


1 

2 

3 

4 
b 
6 

7 

8 


NULLV 
1GDS4 
VSPB 
XLL 
YDVAL 
AY 


tiGnsc 

, I GDS5 


,GSPl » UN I TN 
, i PT NOW , MAXP T 
t I GDS6 , IUSP 


f.NUUT 
, X UK 
t lKtY-2 
, YLPOS 


, N XD 
i Y UP 
« 1 KEY 3 


,12750 
f I PT 
,RU 
,NYD 
» XT 10 
1 1 K EY4 


t N h G F 
1 0 UM 


, FRRHD i 
♦ IH-FCAL 


» VSPL 
, YLL 
t IKEY1 
, BY 

L 0 GX S W » L 00 Y S W , N p T E 
FC *SVGDfcl,GSPlN 
LOG! CAL*1 GSPlNf DUM(2) 

INTEGER*^ UNlTNtOARF A f NULEV ( 1) ,GSP 1 
REAL *4 XT ICC 6) ,YT I Cl 6) , XL) VALI 6 ) , YDVAL < 6) 
RE AL*8 WORK! 36) ! 

LOGICAL*! LOG XSWt L OGYSK ,NPTF, NRGF , ERR HO 
LOGICAL*! F A , F B , F C ♦ GMOD E ! 

EQUIVALENCE ( RhUR K i , DEL ) 

CREATE GRID BOX ELEMENTS 
‘ ST POST IoOSCt XLL, YLL) 

PL I N E l I GD S C ♦ X U°, , Y L L ) 

PL INE ( IGUSCf XUR,YUR) 

PL INF ( I GDSC , XLL , YUR ) 

PL INE < l GDSC# XLL , YLL ) 

• 5 * V S P 8 


r IATN 
, 1 SYM 
tHSPB i 
tXSIZE 
t YT I C 
, AX 


tOAPEA , 
, RWORK 1 t 
t HSPL , 
tYSfZE , 
tXUVAL , 
» B X • 


FA 


r'Ffl 


CALL 
CALL 
CALL 
CALL 
CALL 
DEL s' 


CREATE 
CALL 

1 

CREATE 
CALL 

1 

CREATE 
CALL 
l 

CREATE 

CALL 

RETURN 

END 


LOWER TIC MARK ELEMENTS. 

PS GMT ( IGDSCtXTI C, YLL-OEt ,XTIC , YLL+DEL, NULLV, NULLV, l,NXD, 

1 . 0 . 1 , 3 ) 

UPPER TIC MARK ELEMENTS 

PSGMT ( I G DSC , XT I € , Y UR -D E L , XT I C , YU R+DEL, NULLV, NULLV, 1 ,NXO , 

1.0, 1,0) 

LEFT TIC MARK ELEMENTS 

PSGMT ( IGOSC, XLL-QEL,YT I C, XLL* DEL, YTIC, NULLV, NULLV, 1, NYD, 

0 , 1 , 0 ,!) 

RIGHT TIC MARK ELEMENTS 

PSGMT ( I GDSC , XUR-DE U YT I C , XUR+DEL , YT I C , NULL V , NULL V , 1 1 NYD , 
Ot It 0*11 


GRID 00 01 
GRI 00002 
GR 1 00003 
GR 1000 04 
GR I 00005 
GRID 00 06 
GRI 00007 
GR I DO 008 
GRID 00 OP 
GRIO001O 
GRIDOOll 
GRID CO 12 
GR I'D 00 13 
GRID 00 14 
GRID 001 5 
GRID 00 16 
GRID DC 17 
GRID GO 18 
GRI 000 19 
GRID0020 
GR 1 DO 021 
GRID0022 
GR 1000 23 
GRID0074 
GRID 0025 
GRID 0076 
GR I DOG 27 
GRID 00 2 8 
GR 100029 
GRID 00 30 
GRID 003 l 
GRI 00032 
GRID 00 33 
GRID 00 34 
GRID 00 35 
GRID 0036 
GRID 00 3 7 
GR ID 00 3 8 


§ i 





SUBROUTINE SHIFTl 


coHhgn/gspd/wopk 

♦ G SP 1 

* UNI IN 

,12250 

, I’ATNI 

1 

NULL V 

, IGDSC 

f I PTNQW 

9 M AXP T 

,IPT 

f I SYM 

2 

I G OS A 

t IG0S5 

, IG0S6 

9 IOSP 

*RU 

, HSPB 

3 

VSPO 

• VSPL 

t NbUT 

rNXO 

9-NY0 

f XSIZE 

A 

XLL 

* YLL 

v XUR 

r YUR 

9 Xt 1C 

, Y T I C 

5 

YOVAL 

♦ IKEY1 

v I K t Y 2 

9 1 KEY 3 

9 1 KCYA 

, AX 

6 

AY 

♦ BY 

9 Y LPCJS 

9 



7 

LOGXSW 

♦ LOGYSW 

9NPFF 

,MPGF 

* FRRHD 

i FA 

8 

FC 

toMOpF 1 

9 GSP IN 

, DUM 

f LRtCAL 



LOGICALM GSPIN, DUM<2) 

REjAL*4 XT IC(6I »YT ICI 6) , XOVAL 1 6 I » YDVAH 61 
INTEGER *4 UN I TN, OARS A, NULLV I l) ,GSP l 
LOG 1C AL * 1 FA,FE, FC.GMUDEl i 

LOGICAL*! LOGXSWjLOGYSWtNPTF , NRGF , ERRHO 
RFAl *8 WORK (36) 

IA3SDP= I At5S( I DSP )+l 

IF (IRECAL .EG. 0) CALL OMITUGDSCI 

CALL EXECI IGDSCI 

CALL BUFCUT ( l 2260 , I ABSDP, IRCI 

IF (IRC . NE • 0 ) WRITFINCUT, 10401 IRC 

IF ( IRECAL .EQ. Q) GU TO 17 

IF ( IDSP 111 ,12,11 

11 CALL INCH IGDS5.NULLV, IKEY3) , 

12 CALL AT TEN _ 

CALL OH IT ( I GDSS *NUl L V, I KEY3 ) 

17 CALL RESET ( IGOSCI 

!DSP= I ABSOP , 

14 RETURN 

1040 FORMAT (• BUFFER READ ERROR - R.C. = *,Z8) 
END • 


, HAR E A . 
» RWCRKl, 
t HSPL , 

Vvsi i* , 

« XDVAL i 

♦ ax t 



SHFT0001 
SHFT 0002 
SHFT0003 
SHFT0006 
SHFT0005 
SHF TOO 06 
SHFT 00 07 
SHFTOOOR 
SHFTC009 
SHFTOQtO 
SHF TOO 1 1 
SHF t ora?. 
SHFT00L3 
SHF TOO l A 
SHF TOO 15 
SHF T 30 1 6 
SHFT 30 L7 
SHF TOO 1 3 
SHFT 00 19 
SHFT0020 
SHF TOO 2 I 
SHF T OO ?P 
SHFT 00 2 3 
SHFT0024 
SHF TOO? 5 
SHFT0026 
SHFT0027 
SHFT 3028 
SHFT0029 
SHFT 3033 
SHFT 00 31 










SUBROUTINE $ NOVcL ( BODF$M,SPTWCC,SPM , F ID l F , DA Y f SPBFL W* XPNF5? F FOR » 


i :i 


.OR. (HOUR . NE. 1)1 GO TO 100 


II 


1 


2 AMFSILt PRH,SPTW,TAN:SM f SRLW, SFHD, 0FKF » WT4A>1f wrAPMf ASMt ASMRGi 

3 ; S A S F X t S A R A X t D M X T r D V N T t R I C Y , F I R R ) 

C , SNOWMELT COMPUTATION 

DIMENS I CN DMNT(366 ) , DMXT ( 366 ) » F IRR ( 15 » , RICY( 37) 

INTEGER 0;AY,H0UR 
RF AL MHSM, MRNSM 
IF ( (DAY . NE* 2f4> 

SPLW =0*0 i 

XFLR = 0.0 ! 

SOSC = 0.0278 
FD SC = 0.0 
FT A ^ 0.0 
RICO = 0.0 
KR I A = 0 
100 CONTINUE 
C CALCULATION OF 
C DMXT CURRENT 
IF I HOUR .NE . 

FOSC = 0.0 

FT A = F DSC i 

WT ARM = DMXT (DAY I - 4.0*ELDIF . ♦ ( XELR/4 . 0 ) *0 . 7*ELDI f 
IF (HOUR .EQ. 10) SDSC = -0.0278 
22) SOSC = 0.0278 
16) GU TO 102 

1 . !' ■ 

366) NDAY - 1 

60 .AND. DMXT (366) .NE. 0.0) NO AY = 366 

367) NO AY = 60 

UMNTC NDAY ) - ( XELR/4.0)*3.3*£LD1F 
. LE. 0.0 .OR. XELR .GE. 4.0) GO TO 


HOURLY AIR TEMPERATURE 
DAY, DMNT NEXT DAY 
4) GO TO 101 


101 


102 


IF ( HOUR • EQ . 
IF (HOUR .NE. 
NDAY = DAY ♦ 
IF ( NDAY .EQ. 
IF ( NDAY .FQ. 
IF (NDAY .EQ. 
WT 4 AM = 

IF (PRH 


103 


103 


WT 4AM = WTkAM 0.82 5* FLO I F 

WT4PM = WT4PM + 0.175*ELDIF 
XFLR = XELR + 1.0 
IF (PRH .Nt • 0.0 .OR. XELR .LE. 0.0) GO TO 104 
WT 4AM = WT 4AM + 0.825*ELDIF V 

WT 4PM = WT4PM - 0. L75*cLDIF 


104 


I I 

11 . 


XELR = XELR 
TEH = WT4AM 
FDSC = FOSC 
ETA = FTA * 
IF ( PRH+SPTW 
IF (HOUR .NE 
C CALCULATION OF 
SAX = SAX ♦ 
IF (SAX .GT. 
105 IF (TEH .GT. 
C PRECIPITATION 


- 1.0 

♦ FTA*(WT4PM - WT4AM) 

+ SDSC 
FDSC 

0.0) GO TO 
GO TO 105 
AGING OF THE 


12 8 


SNOW PACK 


• EQ • 

24) 

TIME 

1.0 

15.0) SAX = 15.0 

32.0) GO TO 110 

IN FORM OF SNOW - CALCULATE 


SETTLING 
TO 110 


106 

107 


SNOW COMPACTION, AND 

IF (PRH .LE. 0.0) GO 
PRH = SPM*PRH 
PRH 

ASM + HSF 

(1.0 - ( F FS I * F FOR ) ) *P RH 
- PRH ■■ : ■ 

= ASMRG + HSPRG 
FFS J*FFOR*HSF 
AMFSIL •* AMFSIL + FS IL 
IF (TEH .LE. 0.0) GO TO 106 
DNF5 * XDNFS + ( ( 0. 0 i* TEH I * *2 ) 

GO TO 107 
ONES = XDNFS 

1FTSPTW .GT. 0.0 .AND. SDEPTH .GT • SPTW) 
SDEPTH/ SPT Wl* ( ( 0.1 Q*SDEPTH) **0*25) ) 


INTERCEPTION DENSITY OF 


SNOW PACK AMD THE EFFECT ON ALBEDO 


HSF = 
ASM = 
PRH = 
HSFRG 
ASMRG 
FS It 


SNOWOO 01 


SNOW oo 02 


SN0W0003 

i ■ 

SNOWOO 04 


SNOWOO 05 


SNOWOO 06 


SNOW 00 07 


SNOwOOOfi 


SNOW0009 


SNOWOO 10 


SNOWOO 11 


SNOWOO l 2 


SNOWOO 13 i 


SNOWOO 14 i 

• | '■ 

SNOWOO 1 5 I ... 


SNOWOO 16 


SNOWOO 17 

? r 

SNOWOO 18; 

- 

SNOWOO 19 

.. f • 

SNOW 00 20 


S NOW 00 2 L 


SNOW 00 22 


SNOW 00 23 

■ i .. 

SNOWOO 24 


SNOWOO ? 5 

■■ ] 

SNOW 00 26 

i • 

SNOW 00 27 

••• l 

SNOW 0028 

I 

SNOWOO 29 


SNOW 00 30 

| • 

SNOW 00 31 


SNOWOO 3 2 , 

■ f •• 

SNOWOO 33 ! 

i 

SNOWOO 34 | 

a ' 

SNOWOO 35 

V ' 

SNOW 00 3 6 

1 ' •: 

SNOWOO 3 7 . 


SNOWOO 3 8 

• ' i' "'. 

SNOWOO 39 


SNOWOO 40 

: P ' 

SN0W0041 


SNOWOO 42 

■. ■ \ • 

SNOW 00 43 


SNOWOO 44 

•: • 1C 

SNOWOO 45 

1 

SNOWOO 46 


SNOW 004 7 

L- 

SNOWOO 43 

f 

<1 SNOWOO 49 

V 

SNOW 00 50 

¥ 

SNOWOO 51 

s . 

SNOWOO 52 

' ■ !•; 

SNOWOO 53 

. ' ’ ' - i 

SNOWOO 54 

' : i -■ 

SNOWOO 55 

. •. * 

i . 

SNOWOG56 

■ I: • 


SDEPTH = SOEPTH - ( (PRH* 



108 


109 

HO 


SPTW = SPTW + PRH 
SDEPTH = SOEPTH + ( P RH/DNFS ) 

SASFX - SASFX + PRH r . . . . . . 

I F ( S A S F X .GE. PXCSA) GO TO 108 * v -* . * 

GO TO 109 
SAX = SAX - 1.0 

IF (SAX .LT. 0.0) SAX = 0.0 . , ; w , . ... 

SASFX = SASFX - PXCSA 

PRH = 0.0 — - v‘^ v. 

CONTINUE 

I F ( SPT W .LE. 0.0) GO TO 127 
SEASONAL MELT FACTOR ADJUSTMENT 

FDAY = DAY ;; - ■ . 

KAAO = KRIA 

KR I A = 1.0 ♦ (FDAY/ 10.0) . / 

IF (KAAO .NE. KRIA) RICD = R ICY (KR I A ) 

I'FCT'EM .LE. 32.0) GO TO 111 
GO TO 114 

CALCULATICN OF NEGATIVE MFLT 

111 IF (TANSM .LE. tl.5*MRNSM) GO TO 112 

IF ( T ANSM .LT. 1.0) TANSM = TANSM ♦ ( ( 5. 0*MRN$M )*♦ ( 1 . 3 ♦ 2.0* 
1 TANSM)) 

GO TO 113 

112 TANSM = TANSM ♦ MRNSM 


SN0W0057 
SNOWCO 58 
SN0WU059 
SNOW 00 60 
SNOW006 1 
SNOW0062 
SN0W0063 
SNOW006 A 
SN0W0065 
SNOW0066 
SNOW0067 
SN0W0068 
SNOW0069 
SNOW0070 
SN0W007 l 
SNOW 00 7^ 
SN0W0073 
SNOWOO 74 
SNOWO075 
SNOW0076 
SN0W0Q77 
SN0W0078 
SNOW 00 79 
SN0W0C80 
SNGW0081 
SNOWOO 82 
SNOW0083 
SNOWOO 84 
SNOW0085 
SNGWC086 
SNUW0007 
SNOWOO 88 
SN0W0089 




•© 

Sf 1 


B-86 


l i 

) 


<T7 


r | 1 

nQ 


ll? IF ( T ANSM . GT • 0.08*SPTW| TANSM = 0.08*SPTW 

GO TO 127 i 

C EFFECT OF RAIN CN ALBEDO 

114 SARAX = SARAX ♦ PRH 

IF ( SARA X .LT. PXCSA/2.0) GO TO 115 
SAX = SAX ♦ L.O ' 

IF (SAX .GT. 15.0) SAX “15.0 
SASFX = 0.0 

SARAX = SARAX - (PXCSA/2.0) 

115 IF (TEH « GT . 32*0) HSM = (TEH - 32. 0 l *BODF$M 
IF (TEH .LT . 32.0) HS.M = 0.0 

HSM = H SM*R I CO . , 

KA A = 1.0! + SAX 

I F ( SAX .LT. 15.0) MSP - H$M*(!.0 - ((1.0 - FRJR ) *f= I KR ( k A A ) ) ) 

IF (SAX .X; 0. 15.0) HSM = HSM *M.O - ((1.0 - FFOR ) *FI PR( 1 51 ) ) 

IF (PRH .GT . 0.0) HSM = HSM ♦ ((TEH - 32 . 0 )*( P RH/ 144 . 0 ) ) 

IF (STMD .GT. 0.3 .AND. SPTW .LT. SPTWCC) GO TO 116 
GO TO 1 17 

116 MHSM = HSM ' 

HS M = ( SPTW/SPT WCC ) * HSM 

IF (HSM .LT. 0 . 1 * M H S M ) MS M = 0 • 1 ♦ M HSM 

117 IF (HSM .LT. SPT* ) GO TO 1 18 
HSM = SPTW 

SOX PTH = 0.0 " '**■' - — " v 7 '-*‘v 

SPTW = 0.0 
SPLW = 0.0 
RI CD = 0.0 
TANSM = 0.0 
SAX = 15.0 
OFRF = SOFRF 
OFRF IS = SOFRF I 
GO TO 122 

118 SPTW = SPTW - HSM 

IF ( SFMD .LE. 0.0) GO TO 122 
IF (SAX .GF. 15.01 GO TO 121 
I F l SAX .Gb. 6.0) GO TO 119 

SDEPTH = SDEPTH - ( H SM7 ( 0. 5-SFMD ) ) \ 

GO TO 122 

119 IF (SAX .LC. 10.0) GO TO 120 

SDEPTH “ SDEPTH - ( HSM/ (O.P^SFMD) ! . 

GO TO 122 

120 SDEPTH -SDEPTH - ( HSM/ (0.7*SFMD ) ) ‘ 

GO TO 122 

121 SDEPTH -SDEPTH - ( H SM/ SFMD ) 

122 CONTINUE 

I F ( SPT W .LT. 0.00001) S&TW = 0.0 
C CALCULATION OF L I C Ul 0 ATE R- HOLDING CAPACITY 
S P LlW C = S P 6 FLW * SPT ,< 

IF(|S:FMD .GT. 0.6) SPLWC = SPBFL'W*(3.0 - 3 . 33=rSFMD ) «SPTW 
I F {'SPLWC .LT. 0.0) SPLWC “ 0.0 
C ACCOUNTING OF KELT WATER AND RAIN 

IF ((SPLW + HSM ♦ PRH) .GT. (SPLWC t TANSM)) GO TO 123 
GO TO 124 

123 PRH = HSM ♦ PRH ♦ SPLW - SPLWC - TANSM 
SPLW = SPLWC 

SPTW SPTW + TANSM 

TANSM = 0. 0 ■ 

■ GO TO 127 ■ 

124 TF ( I HSM t PRH); .LE. TANSM) GO TO 126 

125 SPTW = SPTW > TANSM 

SPLW = SPLW ♦ HSM ♦ PRH - TANSM 
PRH = 0.0 
TANSM = 0.0 
GO TO 127 

126 TANSM = TANSM - H$M - PRH 
SPTW “ SPTW ♦ HSM + PRH 
PRH =0.0 

127 CONTINUE 
HSM = 0.0 

C CALCULATION OF DENSITY AND ADJUSTMENT OF OVERLANO FLOW TIME * 

IF (SDEPTH . LE* 0*0 .OR. SPTW .GE. SDEPTH) GO TO 128 
STMD = (SPTW + SPLW) /SDEPTH 
SFMD = SPTW/ SDEPTH 
OFRF = 0. 33*SGFRF 

IF (SPTW .LE. SPTWCC) OFRF = II. 0 - ( SPTW/SPTWCC 1*0.67) ♦SOFRF 

128 IF (SDEPTH .LE. 0.0) OFRF = SOFRF 
OFRFIS “ XOrRFl«J c RF/SUFRF 

C CALCULATION OF GRCUNOMELT 

• IF ( HD UR .NE. 1 2 .OR • SPTW .LE. 0.0) RETURN 
I F ( SPTW .Lb. DSMGH) GO TO 129 
f PRH =■ PRH + DSMGH 

SPTW = SPTW - OSMGH 

If (STMD .LT. 0.50 .AND. SDEPTH .GT. 2.0*DSMGH) SDEPTH = SDEPTH 
1 2. 0* DSMGH 

RETURN 

129 PRH = SPTW ♦ PRH ♦ SPLW 
TANSM = C.O 

RICO = 0.0 

SPLW = " ; . .= . 


1 B-87 



SDEPTH = 0.0 
SPTW = 0.C 
SAX * 15.0 
OFRF * SOFRF 
OFKFIS = SOFRF I 
RETURN 
END 


SNOUOl 79 
SNOWOl 80 
SNOWOl 8 1 
SNOWOl 87 
SNOWOl 83 
SN0W0184 
SNOWOl 85 


1 ( ) 


8-88 5 





SUBROUTINE ST AT ( R , $ ,N, ARE A ,MAXR , MAXS , SSQ , SSUl , SUMO, 

SUHSQ * NCANR f MCA NS , V AR R t V A K S » C 0 R C F ) 


;( 4 


INTEGER 
P EAL R 
REAL M 
REAL T 


:r i.n 

K { N > . S < N » , ARE A * SUMS f SUMR , M AXS t MAXP » SSO, SSQ 1 1 SU M 0» SUMSCl 
MEANS t MEANR, VARS, V AR R , CORCF 
TEMP, TtMPS, T EMPR ,• AS, AR, ASK 


INPUT : S = ARRAY DF S IMUL AT FD READINGS 

R ARRAY UP OBSERVED HEADINGS 
N ~ NUMBER CF READINGS 
AREA = AREA UF WATERSHED 


OUTPUT: SUMS * 
SUMR = 
MAXS = 
MAXR = 
SSO - 
SSOI = 
SUMO = 
SUMSQ 
MEANS 
MEANR] 
VARS s 
VARR = 
. GORCF 


MAxs * sm 


SUM OF SIMULATED READINGS 
SUM GE OBSfckVLO K FADINGS 
MAXI MUM OE .SI MULAfFD P F AGINGS 
MAXIMUM JF OB SERVED R FADINGS 
SUM SQUARED WITH WEIGHT DF 20 
SUM SOUARCD WITH VARIABLE WEIGHT 
SUM EE (OBSERVED - SIMULATED) ^FADINGS 
= SORT OF SUM OF I OBSERVED- SIMULATED)**?) 

MEAN OF /SIMULATED READINGS 
= MHAN OF OBSERVED READINGS 
VARIANCE OF SIMULATED READINGS 
VARIANCE OF ACTUAL READINGS 
= CORRELATION COEFFICIENT 


MAXR = fUl) 

SSO * 0, 

SSQ I - 0* i 
SUMD = 0. 

SUMSQ = 0. 

DO TOO 1 = 1 , N 
TEMPS = SIM 
TEMPR = R(I) 

COMPUTE SUM OF READINGS 

SUMS = SUMS > TEMPS 
SUMR - SUMR ♦ TEMPR 

FIND MAX OF READINGS 


MAXS = 
MAXR = 


AMAXII MAXS, TEMPS) 
AM AX U MAXR, TEMPR) 


„ ..COMPUTE SUM SQUARES _ ^ 

IF , H .EQ. 1) GG TO 50 
WEIGHT =20. 

IF i (N .GT. 12.) WEIGHT = WEIGHT / BO. 

TEMP = FLOW 01 (TtMPS.TEMPF tWCIGHT) 

SSQ = SSQ + TbM° * TEMP 
WEIGHT = AREA + 10. 

IF (N .GT. 12.) WEIGHT = WEIGHT / 30. 

TEMP = F1.0W0I ( TEMPS, TEMPR, WEIGHT) 

SSQ I - SSQ I + TEMP * TEMP . 

COMPUTE SUM of: DELTAS £ SUM OF DELTAS SQUARED 

TEMP-ABS(TEMPRI) - ABS ( TEMPS) 

SUMD = SUMD ♦ TEMP V " 

SUMSQ = SUMSQ ♦ TEMP * TEMP 


COMPUTE MEANS 

MEANS = SUMS / N 
MEANR = SUMR / N 

COMPUTE SQRT i SUM( DELTA**? I 


SUMSQ 


SQRT ( SUMSQ ) 


AS = 0. 

AR = 0. 

ASR - 0. 

VARS = 0. 

VARR = 0. 




ST AT c: 01 
ST AT TOP? 
ST AT 0003 
ST AT 020A 
ST AT GC 05 
S T AT 

S TAT 0007 
ST AT 00 m 
STAT03 T° 
ST AT DO 10 
STATIC PI 1 
STATpOI‘2 
ST AT 0013 
S T AT CP LA 
ST AT DO 115 
S TAT 00 L6 
STAT ED l 7 
STATCPtfl 
ST AT 00 19 
ST AT 00 ?0 
ST AT 00 21 
ST AT 0022 
ST AT 0023 
ST A TOO 2 A 
STATO025 
ST AT 0076 
S TAT 00? 7 

staid y?n 

iSTATC 329 
ST A TO 030 
ST AT 003 1 
ST AT 003? 
ST AT DO 33 
STAT 00 3 A 
ST AT 30 35 
ST AT 0036 
STAT 3037 
S TAT 003 3 
STAT 0039 
ST AT 00 'O 
STATOOAl 
ST ATOP A 2 
STAT00A3 
STATOOAA 
STAT3045 
STAT00A6 
STATOOA7 
S TAT 00 A B 
STATjOGAO 
ST AT 00 5 '' 
ST AT 00 51 
S TAT 00 52 
ST AT 30 53 
STAT305A 
STATOO 55 
STAT0056 
STAT0057 
STAT0Q5B 
S T A TOO 59 
STAT0060 
STAT0361 
ST AT 0052 
STAT0363 
STATQ06A 
STAT 0065 
STAT0066 
ST AT 0 367 
STAtOO^B 
STAT 0069 
STAT 007 0 
STAT0071 
ST A TOO 72 
STAT 00 73 
STAT 00 7 A 
STAT 00 75 
ST AT 00 76 
STATCO 77 
STAT CD 7 8 
STAT0079 
ST At 00 80 
STATOOn 
ST AT DOR? 
STAT 00 R 3 
STATOOSA 
STAT 0035 
STAT 0086 
STAT 00 fl 7 
S T AT 00 HB 
STAT 0089 
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APPENDIX C 


PROGRAM FLOW CHARTS 


SUBROUTINE 

PAGE 

SUBROUTINE 

MAIN 

C-2 

EVPDAY 

KWMAIN 

C-8 

INT 

WORSTC 

C-22 

INTEG 

ZEROP 

C-45 

LABELS 

FORCST 

C-68 ' 

PL4020 

PASTRN 

C-91 i 

PLOT ID 

OUTPUT 

C-114 

PLTEND 

ATTEN 

C-124 

PL360 

CHANGE 

C-130 

POINTS 

CONVER 

C-132 

PRECHK ! 

CORREL 

C-135 

PREPRD ! 

DAYNXT 

C-136j i 

RTVARY | 

DAYOUT 

C-137 

SGRID 1 

DICTRY 

C-140 

SHIFT! 

DLPO 

C-142 

SNOMEL 

DMSG 

C-T43 

STAT 

mm 

C-144 

TABLE 

BLOCK DATA 

C-159 







'■ /''’APPENDIX C • 

' PROGRAM FLOW CHARTS 


MAIN ******** KENTUCKY WATERSHED MODEL (VERSION OF JUNE 6. 197 

C BASED ON STANFORD WATERSHED WATERSHED MODELS Hi t IV 


ISFLAG IS SET TO BRANCH AS FOLLOWS: 


l - BRANCH TO NOMINAL KWM INITIAL PUN 


2 - PLOTS ONLY, NO NEXT YEAR OF DATA 

. ' " ' ■ ' ■ ■ ' ? I ' ' . . • • ' ■ ' . ' .. . ' 

3 - NO PLOTS, NEXT YEAR DATA WITH NFW WATERSHED PARAMETERS 

A - NO PLOTS, NEXT YEAR DATA WITH OUT NEW WAT FR SHED PARAMETERS 

5 - PLOTS , NEXT YEAR DATA WITH NEW WATERSHED PARAMETERS 

6 - PLOTS, NEXT YEAR DATA WITHOUT NEW WATERSHED PARAMETERS 

7 - PLOTS. WITH SIM AND OBS SUPERIMPOSED ONLY! DOTH MONTH AND YER 

8 - PLOTS, WITH SIM AND OBS SUPERIMPOSED ONLY! MONTHS SCALP) 

9 - NO PLOTS, NU NEXT YEAR DATA 


DIMENSION TITLE (13!, ORSF(366), DSSPO 66 I , C3NUPH 16), 

TH S PO ( 7 44,3 ) , PEAKS ( 6 I , PHRS( 6 ) ,NSPTS( 6) , THSFD.M (61,0(33 7) , 

TMRTF ( 12),TMSTF(15»3>, * 

CTRII99) ,FIRR( 16) ,kl C Y( 371 ,OPSE( 366 ) , BTP I (99 ) 

COMMON/PLOTC/DRSF,DSSF,CONOPT ,THSFD, TMSTF, STMROS ( 12 1,61, DPY, TITLE, 
KFLAG, I r)FL AG, , 

I ENUFG, STUCY ( 2 ) » PEAKS »PHRS ,NSPTS » THSFD.M , TT P.AXD , TMRTF , JPLOT , 

NCTR I , CTR I , F 1 RR, R ICY, OP SF , BDOrSM , SPPF Hs , SPT’wCC , S°M, FLO I F, 

XDNFS, FFOK.FFS I , MRNSM, DSMGH , PXCSA.RMPF, R GPHB , AREA , FI HP , 

SATKI (99) ,UHFA( 99 1 , 

MNRD,, 

FWTR , VI NTjM.R , BUZC , SUZC » L ZC , ETLF , SUBWF * GWETF » S I AC , SMTP , 
BIVF.OFSS.OFSL JPMN.QFMNI S, I FRC, CSRX, FSR X.CHCAP , EXQPV, 

BFNLR , CFRC ,Gw.S ,UZS , LZS , BFNX, I FS , BFHRC , BFRL , BFNRL , 3FMHR, IFPPX, 

I FRL , LSHE T ,N BTkt , FN1 R i , MXTR I .NCSTPl.hTP 1 ,TFCFS,E r ’AET»FPER» 

TPLP., VINTCR.HSE, NKTR .1 , S P I F , CBF , SPUR, PFUS ,OFUS IS,0 L « ,0F» IS, PETS, 
RHFO, URHF » AM I F , AMNET , AMPfcT » AMSNfc * ANFS l L » SASF X , S AR AX* SRX, VWIN, 
WCFS ,RHFMC, S SR T.UFRF , OFRF I S , EDUF , EQCF I S , SOFR F , SOFRF I , 
SDEPTH,MULTI , 1 0, ASM , WT4 AM, WT4PM, S AX, T A\S M, SP TW, S T MD, SFMD, ASMPG , 
DEPEND ( 2 1 , V AK1 N ( 2 1 ,MPTS, JULOl , I YR, TOD AP Y (6,1). 

T CM ARY (7,1 ) ,T0SARY(5,6, 1 1 , T SO AP Y ! 6 , 1) * T S M ARY 18,1) , 

T SSARY (3,6, l I , T SMCRYI l ) ,1 SDCRY ( l ) » T SR AR Y( 1,6,1), 

TCRARYU ,6, L ) , 

OPS FT (366 ) , OSS FT (366), MI, NI, MULT .TMRTFT (!2),TMSTPT ( 12) 

COMMON/ COMM A/ fc MBFNX ,EMGWS, EMI FS, EML ZS.E.MS I AM, EMUZC , EMUZS, TMP.F , 

TP I F, T.MPRCC , TM SC, CRFM l , 001 Vi, i)MNT , UMXT , DRGPM, ORHP , OP SOP, UPET, EDL ZS, 
E PCM, SERA , SERR, SESr ,S7ER , TilS F, TMFS IL, T v NLI ,TMOF , TMPcT , TMR PM , TM.SNE , 
TMSTFI , T200FH, T20PRH, T MR TF I , JULO AT , 

TFMAXY, UZC, API X, DAY , NSGRD, At X90, SI AM, NDSDP ,RGPM, NDSDR , YRl , 

TRHF, 

S INDEX, INDEX, AEX96, MAXI , YR2, B YLZ S , B YI FS . E YUZS 




DIMENSION; RPLOTC (1.832 I ,RCOMMA ( 12087 ) 

E QU 1 V AL En'CE ( D P V , R P LOT C ( I ) ) , ( C RF M I , RCUMMA < 1H 

DIMENSION CRFMII2?) f 0DiW(366) f 

DMNT <366), DM XT ( 3 66 ) , DRGPMl 36o ) , DRHP 1366,24) * 

DRSGP( 366) • l)PET ( 36oi tEDLZS( 366) , 

EMtVFHXj 15 9 3 ) * FMGW5 ( 15 * 3 ) , b M I F S ( 15,31 ,EMLZS<15,3) t F MS I AM {15 ,3 ) , 
EMUZC( 15,3) * E MUZS ( 16 , 3 ) , EPCM < 12 > , 

SEK At 2? I , SE'R R l 22 ) , S ES P {.2 2 ) , SUFR122), 

THSF12A ) * T yjp 1 i 5 V 3 ) , T M F S 1 L ( 1.2) , IM1F( 15 *2 > ,TMN FT ( 12 ) f 
TMOEt 15,3) , TMPf- T ( l 2 ) , TMPR EC 1 15 t 2 V , TMRP MI 1 2 ) , T M b E ( 1 5 , 3 ) * 

TMSNF ( Ui f TMSrm 15,3) • T20UFH ( 2 1 ) , T2.0PRH { 21 ) , 

1MRTFI { 12) ,JUIDAT(6) ,TFMAXY{ 366) 

REAL L Z S , I F S 

REAL MNRD 

I NT EGER T 0 M AR Y , T S M AR Y , TO D ARY t T S GARY »T05 ARY ,TSS AR Y 
INTEGER PEAKS, PHRS , CONOPT , NSPTS 
INTEGER SI NOEX , SINDET ,MPDAY( 15} 

INTEGER NUN IT/2/ ,IER < * 

INTEGER iCCN/i/ . 

REAL SUM ( 3 ) , APRFC ( 3 ) , QQUT ( 15 ) 

INTEGER MONTHS (64) , PMGNTH, PDATE ,EMONTH,EDATE, WY EAR, DATES, PDAY 

DATA MONTHS/ • J AN • ,0,0, 0,4,' FEB • , 31 , 31 , 3 L ,5 , • H AR ♦,59,59,59,6, 
♦APR ♦, ,30* 90, 90, 7, ‘MAY •,121, 120,120,8, ‘JON ♦ , 1 51 , 1 5! , 1 51 , 9 , 

• JUL * ,131 , 131,181, 10, ' AUG * ,212 ,212,212,11 , 1 SEPT 1 , 243, 243, 243, 12 
!• OCT • , 273 , 273 ,27 A , 1 , 1 NOV ', 304, 304,305,2 , 'OEC ♦,334,334,335,3, 
•JAN ',365,365,366/ 

V 1 

♦ READ Ti, 9} ♦ 

♦ TITLE / ? • - ♦ 

♦ ♦ 

♦ ♦. 


FORMAT 


9 FORMAT (18A4) 


805 


606 


CALL OSUPOT 


1 806 | 


CONTINUE 
BACKSPACE 5 

BACKSPACE i 

REW IND-Il \ 'T- 

REWIND 18 

CALL TAPCON {NUN IT , ICON, IER) 

CALL CSUPDT 

CONTINUE 


I IS FLAG =1 


J PLGT = 0 
1DFLAG =0 
I END FG =0 

ID =1 
10 = 5 



CALL READ! IRSTRTI i ! 

CALL RE AD j PMQN TH» POATE t E MONTH »EO AT E *NYE AR t WYEAR l 


♦ ♦ 

♦ DO LOCP TO ♦ 

♦♦♦♦♦++♦♦♦♦ STMT H 101 ♦ 

♦ ♦ KRD=1»16 ♦ 

♦ ♦- - ♦ 

101 ♦♦♦♦♦♦♦♦CALL READ jCCNOPT (KRD) 1 


.P MONTH -( (PM0NTH-l)*5)*i 
MSBDIC = MC NT hS < PMONTH I 
LE APY= PMCNTH ♦ l 


. * IF * . T LEAPY=PMON 

• - MOD I WYE A *♦♦♦♦ - - - - 

*R,4).EQ.O * 

* . ’ . * . _ . 

■‘T:-. F- 1 - -- ■■ '' ♦ 

+ + «-++ ♦♦♦♦♦♦♦+ »♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


. * IF * . T LEAP Y=PMON 

* MODtNYEA *+«•♦♦ 

♦R-.-A-T.'EQ-.-O- * — 

* • • * 

* . + 

F ♦ 

I ♦■♦♦♦♦♦♦>♦ ♦♦♦♦♦♦♦♦ ♦♦♦♦♦♦♦♦♦♦♦♦* 



DATES=MUNTHS ( LEAPY > +POATE 
PC AY =1 MONTHS ( LEAP Y ) I 
MONTH-MONTHS ( PMONTH** > 
EMONTH =( (EMONTH-l )*5)*l 
LCAY = MONTHS ( LEAPY+5 I 


. * ' IF * . T EDATE=MONTHS ( LEAP Y ) *EDA 

... * PMONTH. E ***** TE . 

;• ; *Q.EMONTH * 

• ‘ **v . . *•*■»*. ♦ • • * 

v F 1 

j+*********************, '♦*♦♦♦**♦ 


I PMONTH I F (' < PMONTH. NE . EMONTH ) . AND. ( MONTH S < E MONT H+41.NE.4) I 
ECATE = < MONTHS ( LEAPY + 5) +EDATE) 

(PMONTH I F ( (PMONTH.NE. EMONTH) .AND. (MONTHS! E MONT H*4 I. EQ. 4) ) 

EDATE=M0NTHS(2)*EDATE 


. * IF * . T EDATE=366 

♦ (MONTH. E ***** 

♦Q.5) .AND. ( ECATE.EQ.* 

*60 * ' 

* . .■ * ■ * 

* , * 

FI ♦ 

I ♦***♦♦♦♦+ *+*♦♦♦♦♦♦♦♦ ♦♦♦♦♦♦♦♦♦♦ 


I ISTART =CUNUPT (15) 
I NFP =3 





• * * 

• ♦ IF 

* CONOPTU 

♦5I.EQ.2 

•>r 


T 

* 


NF P= l 


+ +++ ++f + + ♦ +++ + +++ + + +++ + + + ++++ + 

CALL READ (DT, AREA! »NQ .LOCKUP, I PLOT I 


10 


= 6 


♦- — — ♦ 

* DO LOOP TO ♦ 

♦♦♦+++♦♦♦♦4 STMT H 503 ♦ 

♦ ♦ I-lfNQ ♦ 

4 - + 

_ ♦ 1 

♦ CALL READ (Q(I )\ 

♦ 

503 ♦♦♦ ♦•4-44- + CCNT INUE 

• +* WrTtEI 6 .9990 ) 

♦ 1 DFLAG, I ENDFG, I SFLAG, ID 

♦ ‘ 

♦ 


+ 

4* 

4 - 

4 - 


20 


• IENDRG- • ♦ l 5, ■ 
GO TO 11,2,3), I ST ART 


FORMAT 9990 FQRMATI/3X,* 
ISFLAG= i , I5t« MAI N= • , 15) 


I DFLAG- 


I SFLAG =0 
ID =2 


> WRITE (6,9990) 

4* * I DFL AG , I ENDFG, l SFLAG, ID .. V . ♦ 

■ 7 . ■ : ■ ♦ 

' ' 4 - \ ■ . ' 7 ■' . 4 . 


-4- 

♦ 


16 

1 


— CALL KWMAINCI SFLAG) - ^ v — • 

CALL WGRSTCt PD AY, DATES, MONTH, EDATE , MSBD IC , PDATE ,LDAY) 

CALL 2ER0P ( PD AY, DATES , MONTH, EDATE , MSBD IC , PDATE ,LDAY ) 

CALL FORCST( PD AY, DATES, MONTH, EDATE , MSBD I C , PDATE ,LDAY ,MPDAY) 

’ CALL I NT (NO , QVOT , AREA I , LOOKUP , l PLOT ,NFP , MSBD 1 C, MPDAY.D IFF S, 
DIFFMP,DIFFP,I)IFFPP,SUM,D1FFR,DIFFRP,APREC,DIFFPR,D 1FPP,Q0UT, 
QMAX, PHRO ) 

CALL OUTPUT ( Di FFS, D IFFMP , DT FFP , DIFFPP ,SUM , DI FFR ,D IFFRPf APREC, 
DIFFPR,D!FFPP,QOUT,QMAX, PHRO, MS3DI C,MPD AY ) 

• 4 4 , 

• * IF 

* IRSTRT.E 

♦Q.l r 

^ • • 

: : : I * , * 

.VI ■' F I 


* 


T 

♦■ 44 * 4 ' 4 1 
♦ 


GO TO 005 


STOP 

CCNT1NUE 






•.15 


CONTINUE 


t 


I ID - 6 


♦ WRtTE(6,9990) 

♦ IDF LAG, 1ENDFG, IS FLAG* ID 


CALL WORST C (PD AY .DAT ES , MONTH, EDATE , MSBD I C , PDATE ,LOA Y ) 

CALL ZEROPtPDAY, DATES, MONTH, EDATE , MSBU IC , PDATE ,l.OAY I 

CALL FOREST (PDAY, DATES, MONTH, ED ATE , MSBD l C , PDA! E , LOA Y , MPD A Y) 

CALL INT(NQ,Q, CJT, AREA! , LOOKUP , I PLOT ,NFP , MS BDIC, MPOAY , D IF F S» 

D i FFMP » 0 1 FFP .DIFFPP ,SUM, 0 1 FFR ,0 I FF RP , AP KEC ,D 1 F FPR , 0 ! F PP , QOUT , 
QMAX , PHRC 1 

-CALL OUTPUT l 01 FFS.DI FFMP , D IFF?, OIFFPP,SUM , Dl FFR ,D I FFRP , APREC , 
D1FFPR, DIFFPP, QOUT, UMAX, PHPO, MSQOl C ,MPD AY ) ; 

I • .1 

' - - . -♦ * ‘ -- 

• ♦ IF * . T GO TO 805 

* IRSTRT.E t 

*0.i ♦ .... 

* . . * 

1 1 * 


GO TO 805 


CCNTINUE 


1 20 I 


CCNTINUE 

CALL PASTRN ( PO AY, OATES, MONTH, EDATE , MSBD IC , PDATE , LDAY , MPOAY) 

! i 

CALL I NT t NO ,Q , DT , AREA I .LOOKUP, l PLOT ,NFP , MSBD I C , MPOAY , D IFF S , 
DIFFMPrD l FFP, DIFFPP ,SUM,DIFFR , 0 1 FFRP , AP RE C , D I F F PR , D ! F PP , QOUT , 

QMAX.PHRO) 

CALL OUTPUT (DI FFS, 0 I FFMP ,D I FF P , 01 FFPP .SUM, Dl FFR ,D IF FRP, APREC, 
DIFFPR, DIFFPP, QOUT, CM AX , PHRO, MSB D l C ,MPD AY ) . , 

I l ! * • . 


■ . ♦ IF * . T 

* IRSTRT.E *♦♦♦♦ 

♦Q.l * 

* • • * 

♦ . * - ■ 


GO TO 805 




CCNTINUE 


..-rut 


♦ READ (II) 

► (RPLGTC(i) t 1=1,1832) 


♦ READ ( 18 ) 

♦ CRCCMMAI II, l±lf 120QT) 


I 




SUBROUTINE KHMAIN(IBFlAg) 

CCHRCN/PLnTC/DRSF,DSSF,CONOPT,THSFD,TMSrr f 'STMKOS( 121,61 ,DPY, TITLE, 
KFLAG, ICf-LAG, 

I ENDFG » S TUI) Y ( 2 ) « PEAKS > PHRS, NSPTS , THSFDM ,'TFSAXO , TMP.T C , JPLDT , 
NCTRI.CTRl.F IPR.R ICY.DPSE.RDUFSM, SPBFLitt, SPTWCCvSPM, fcLDIF, 

XCNFS, FFOK , F F S I , MRNSM , DSMGH , PX CS A ,RMPF , RGPMB , ART A, F I MP , 
'SATR1.UHFA, 

MNRO, 

FWTR , V INTMR » OUZC, SUZC « LZC»ETLF ,SUBWF , GWFTF » S I AC , BMI R* 
BlVF,OFSS»OFSL»OFMiN ( GF. u NIS, I FP. C, CSRX, FSRX.CHC AP , EXQPV , 

EFNLR* 3FRC » GWS *U ZS , L Z S ♦ tif"NX * I PS, BFHRC , BFRL »B FNR L » BFNHR, IFPRC* 

... jprl.LSMFT.N'TTRI i FMP. T , MXTR 1 . NCSTRl ,BTRI iTFC F3 » CPAET , F : ° tR , 

TPLR,VtNTCR,HSE,NRTRl , SP l F , CBF , S PDR , OFUS ,UFU S I S , OFF , OFR I S , PEI S, 
i RHFO, URHF * AM I F , AMNET , AVPFT , AMSNE « AMFS 11 » SASF X , SARA X , SRX , VWI N, 

! KCFS * RhFMC » S SiVT »l)FRF , OFRF 1 S » CiCF* EQOF IS , SOFR F , SUFRF l « 

!■ SDEPTH, MULTI , T D, AS M , «T A AM , WT ARM , S AX , T ANSM, SP T W , ST MO, S FMQ, ASMPG , 
DE PEND ( 2 ) , VAR I N ( 2 ) , NPTS , JULD I « I Y R, TOO ARY ( 5,1) * 

TCKARY ( Z, 1 ) , TO S ARY (5, 6, l 1 ,TSU ARY (6 , 1 1 ,1 SM ARY ( 8 , 1) , V 

TSSARY ( 3 ,6 , 1 ) ,TSMCRY( 1 1 , T SDCRY { 1 I ,T SRAKYT 1 ,6, 1 ) , 

TCRARY (1,6,1), 

DRSFT ( 366 ) , DSSFT (366 ) , Ml, NT , MULT ,TMRTFT (12)*TMSTFT( 12,1 

COMMCN/ COMMA/ EMBFNX , EMGWS , EM I F S , EMLZS.tMSI AM , S MUZC , EMUZ S , T^BF, 

TRIE » TMPRFC , TMS E , CRFM l , DO I W , OMNI , DMXT , ORGPM , ORHP , OR SGP , UPET , fcOL ZS , 
EPCK.SCRA.SERR .SESF.SGER, THSF.TMFS l L , TMNE T ,TMOF , TMPET , TMR PM, TMSNC , 
TKSTF I , TRfcH-Ft-t , T 20P RH , TMK T F I , JULO A T , 

TFM AXY ,UZC » AfcT X »OAY, NSGRD* AE X9D * S t AM, NUSDP ,RGP M, NUSDR , YR l , 

TRHF, 

SINDEX, INDEX, AEX9&, MAXI ,YR2,BYLZ S, BY IFS.BYUZS 
C KENTUCKY WATERSHED MODEL (VERSION OF JUNE 6, 19701 

C BASED ON STANFORO WATERSHED MODELS I IT E IV 

DIMENSION BTRI ( 99 ) , CONG P T t i 6 ) , C R FM I C tzti G T R I ( 9 9 )» 0 D I W I 3 66), 
0MNT(366), OM XT ( 166 ) , 0PSE(366), DKGPMI 366 ) » OKHP ( 366 , 24 ) t 
CRSGP ( 366 ) , DPET(366), DR SF ( 366 ) t OSSFJ 366 ) , EULZ51366) , 

EMBFNX { 15,3), EMoW.ST 15 , 3 ) , F M l F S l 15 , 3 ) ,EMLZS( 15,1) , Ei'.S I A M( 15,3) , 
EMUZC ( 15,3) v EMUZS ( L5 , 3 ) , cPG’rl ( 12 ) , F I RR ( 15 ) ,MEDC Y ( 12 ) , MEPWYT 12 ) , 

R ICY ( 37 ) , SATR 1(99) , SERA (22!, SERR(221, SESF (22 ) , SOF.R (22 14 
T H S F ( 2 4 ) ? TT TL E ( 13) ,T W ( 15,3 ) , F-YF S I U 1 2 ) , TMl F ( 1 5 , 3 ) , T MNG TU2 ) , 
TMOF ( 15,3 ) , rMPET:( 12) , TMPRECI 15,3) , TMR PM ( I|2) ? T *RT c (12) , f ** sFI 1 5 , 3 1 » 
IMSNE ( 12) , T'J|S T F 1 1 5 ,3 ) , TMSTF l (15,3) ,T?COFH (21 ) , f 2-1PRHI 21) , 

; UNFA ( 99 ) , 1 MRTF 1(12), JULD4T ( 6 ) , T HSFQ ( 74 4, 3 ) , T FM AX Y ( 366 ) , 

PE AKS ( 6 ) , PHRS (6) , NSPTS l 6 ) t THSFDM ( 6 ) 

0IMENSICN RPLOTC (1332 ) f RCOMMA ( 12087) 

EQUIVALENCE ( D PY, RPLUTC ( 1 )),( CRFM I , RCOMMA (1) ) 

iCGICAL LSHFT 

INTEGER CDSDR , CN,CONUPT, DATE , DA Y ,DPY,EHSGD, HOUR , HftF ,HRL , PDA Y> . 

| PRD, RHPDfKHPH*RSBC,SG:MCfSGRTf SGPT2, YEAR, YK1 , Y.R2 , PHRS ,S INDEX 

INTEGER TOMARY, T SM ARY , TODAR Y, TSD AR Y , TOS AR Y , TSSARY 


98 


real 

DATA 

i 

DATA 

■ ! 

(REAL 

REAL 

REAL 


REAL 


* 

* 


. ♦ 


I FPRCi I FRC , I FRL , I FS , LZC *LZRX , LZS, LZSR, MH SM, MNRD , MRN SM, NHPT 
MEDCY/ 0, 31,59,90,120,151,181,212,243,273,304,334/ 

MEDWY/304 , 334 ,365,31 ,59,90,120 1^51 * 181 ,2 12, 243 ,273 / 

MXDRSF, MXDSSF ,MXMRSF ,MXMSSF, SSQD 
S SQM, SSQDItSSQMI •VORSF, VDSSF 

VMRSF , VM SSF, SDORSF , SDDSSF, SDMRSF , SDM SSF , SMDD , SMMD , SMSQD , 
SMSQM 

MDRSF , MDSSF , MMRSF ,MMSSF ’■/ ^ 

. * ♦ . 

IF ♦ • 

(IBFLAG) ^ 


199 | 


* 

0 

uoo i 


I 


♦ 

T 1 16 


fit. 


Ot 


C-8 





| CAY = IDAY 1+ I DAY 2 
___ 


108 ♦♦♦♦♦+♦♦! OPSF(CAY) =D P S E ( I CAY L ) 


r* * 
* 273 
■ * 


# ♦ ♦ i 

IF 

DAY- *GT. 


♦ ♦ ♦ I 

♦ ♦” DO LOOP “TO" * ♦ ----- 

STMT # 109 ♦ 

♦ IDAYV =~ 1 9-273 1 10*\ 

: _ZZ.TZZ 

♦ T DAY ' =IDAYI+7dAY2 

: r ' ; "n 

' ♦ ■ . ; 

♦ ' . * * . 

♦ _ _ . * IF * . T 

- ♦ -OAY-.GT. *♦♦♦♦ 

♦ * 273 * 

♦ * . . . * : "• 

* t * • 

: F 1 

♦ T OPSEICAY) =DPsITlDAYl) — 

+ 

. ♦ I 

♦ j - 

109 ♦♦♦♦♦♦♦♦CONTINUE' y 

1 DPSE ( 366 ) =DPSE( 59) 

DPSE I 365 ) =DPSEI363) 
DPSEI364) =L)PSE{ 363 ) 


T 

*♦♦♦♦ 

♦ 



CO LOOP 

TO ♦ 


~ v vV- '■ V ■ /• : ■ . .1 

STMT * 

109 + 

" . > 

■ 1 

I CAY 2 = 

1. 9 I 


■■■• ■ t 

| 



. ■ ■ :• .. I 

1 

+ 


• ; ■ I 

.... . ••• j 

CO LOOP 

TO + 


Sit 

STMT n 

108 ♦ 


. r 

V 

IDAY l = 

274 * 360 1 10 

A 


ill 

■ . : ■ ■ r 



4 


CALL PE ADI BDDFSM * SPBFLW* SPTWCC » SPH » ELDI F » XDNF5 »FFOR , FFSI , MRNSM, 
DSMGH, PXCSA) 

• CALL READIRMPF I • • ■ ‘ * r ' 

CALL READ (RGPMB, AREA, F IMP, FWTR) - 

CALL READ l VINTMR.BUZC , SUZC , LZC, ETLF,SUBWF ,GWETF ,S I AC.BMIR.BIVF > 
CALL REAO IOFSS, OFSL, OFMN, OFMNI S , I FRC) 

CALL REAOyCSRX,FSRX,CHCAP,EXQPV,BFNLR,BFRC» - • . 

I ~BFHRC=BFRC** l 1.0/24.0) I . 

BFRL --ALGGI BFHRC ) I 

BFNRL=0. 0 I ' • 


m , f 

H ( • i 

is j \.i? 


. ♦ * . ■■ 

. ♦ IF * . T 
♦ BFNLR .L - ♦♦♦♦♦ 

*T. 0.00001 .UR. 8FN* 

*LR .GT. 0.9999 * 

♦ . . ♦ 

M* 


GO TO III 



I TPIR =(1.G-FWTR)/FP£R 


VINTCR =0.25*VINTMR 
HSE =0,0 
NRTR 1=0 
SPIP -0.0 

CBF =GWS*BFRL*< l .0* BFNRL*BFNX ) 
SPDR =0.0 
OFUS =0.0 


OFLSIS =0.0 
OFR =0.0 ! 

OFRI S=0. 0 
PEIS =0.0 
RHFO =0.0 
URHF =0.0 
AN- IF =0.0 
AMNFT=0. 0 
AMP ET= 0 * o 
AMSNt=0. 0 
.AMFSIL =0.0 
SASFX-0.0 
S ARAX= 0. 0 
SR X =C SR X 
VWIN =26.8388*AREA 
VW CFS =24.C*VWIN 
RHFMC=0.025/WCFS 
TFCFS=CBF*WCFS 
SSRT = SQRT ( OF SS ) 

OFRF = 1020.0 *SSRT/(OFMN*OFSL ) 

CFRFI S = 1020 . 0 *S SRT/ (OF MN 1 S *0F SU 
EQDF =0.GC932*( ( OFMN*OF SL/SSRT j 
1 ** 0 . 6 ) 

EQDFIS =0.00982* ( (OFMNI S*OF SL/SSRT) 

** 0 . 6 ) 

SOFRF = OF R F 

SCFRF I =CFRF I S 
SOEPTH =0.0 
I'YR =0 

MI =0 : ... 

N I =0 

MULT =0 , 

MULTI = CO N 0 P T { 10 ) 

ID =1 


♦ WRITE (6 .9990) ♦ 

‘ ♦ MULTI, CONOPT CIO), CCNOPTdS), IBFLAG, ID ♦ 

• '♦ * * -< . - t , ♦ 

♦ : 


FORMAT 9990 FORMAT I /3X , » 

. CONOPT 1 15 ) = • ,15,* I BFL AG= • , 15, • KWMA IN = • , l 5 ). 


| ASM =0.0 


MULT I = 

\ CONOPT(iOj= »,I5, 


. * * « 

* IF 
CONOPT (7 

.EQ. 0 

* • . 

t I * 


T 

* 


GO TO 116 


WT4AM=60.0 
RT4PM=60.G 
SAX = 15. C 
TANSM=0.0 
SPTW =0.0 
ST MO =0.7 
SFMO =0.7 
ASMRG-0.0 










I NO SOP = 0 
I MEOW Y I 5 


HEOWYIS) = 59 

. 


• * * . 

. ♦ IF * . T 

♦ DP Y .EO. *4444 

> 366 * 

* • . * J 

?i * - 


MEDfcYl 5) =366 


| ♦♦fi + if ffft+t 4444444 


4444444444 


C READ E VAPOR AT I ON DATA 

! I 

■ : . * * * . i . ' 

• * IF * . T 

* CCNOPT ( *4 444 

*3) *NE. 1 * 

♦ . ^ * * 

f! 


GO TO 125 


4— * — - — - — 4 

♦ DC LOOP TO ♦ 

44444444444 STMT .# 121 4- 

♦ 4 KRD = 274, 36 Ot 10 

t ♦ { 

♦ 

121 444444440 ALL READ j DPET ( KRD) ) 

4 4 

♦ DC LOOP TO + 

4444f4444U STMT # 122 4 

♦ 4 KRD = 1,273,10 

♦ 4 4 

♦ I 

♦ 

122 44444444CALL PEAO(DPET(KRD) ) 

4 — + 

4 DC LOOP TO 4 

♦ ♦♦4444-4444 STMT # 1 24 4 

♦ 4 I DAY 2 = 1,9 4 

l 1 

; I 

♦ 4 4 

♦ 4 DO LOOP TO 4 

♦♦♦44444444 STMT * 123 4 


: ; ; I 

♦ 4 CO LOOP TO 4 

44444444444 STMT H 124 4. 

4 4 1 DAY l = 1,273,10 

r 4 i 4 

: .... I.... 

♦ T OAY = I OAyT+Td AY2 

: ■“ ~ 7 “ 


4. 

4 

4 

4 

4 ICAYi - 274,360*10 

_ 

* '•*. . 

. . till- * ■ -i-Tt ! 

■ jv... 

- -7-r- 

> ^ •' ?*' 

•7 ' ' /• " • • /••• •• .. 

4 *■ 

♦ 1 

CAY = IDAY 14 I DAY2 

t 




4 ~ 

4- ' - 

4 

123 44444444 | 
4 — 

i 

OP£T( DAY ) =DPET< l OAY Li 

T 



V '-v V ; : ; V •' ' . •" A: 

- •. -■ ; ‘ • i' 

. . . . ■ : f 





. * * 

. * IF 

* DAY . GT . 

* 273 

• . 

? I * 


T 

*♦♦♦> 

* 


| DP£T( DAY) -OPfcTI l DAYU 


124 ♦♦♦♦♦♦♦♦CCHTINUE 


DPET (366 ) =DPET<591 
CPETC365) -DPET 136.31. 
DPET (364) =DPETt 363 ) 


1127 | 


GO TO 124 


• * IF * * . T 

* CONDPT ( ♦ ♦♦♦♦ 

*3) .EQ. 2 ♦ 

:: * • • * 

1 1 * • 


| DAY „=274 


*OLL_READj (DPETtDAYn 

• ♦ * • 

• ♦ IF ♦ • T 

* DAY .EG. *♦♦♦♦ 

* 273 * 

♦ . . * 


U* 


CALL DAYNXT ( DAY , DP Y ) 


1126 | 


GO TO 130 


GO TO 127 


'I if ' " | 

s iV . ? 


♦ . •-+ 

127 ♦ DO LOOP TO ♦ 
♦♦♦♦♦♦♦♦♦♦♦ STMT H 120 ♦ 

♦ ♦ MONTH a U 12 ♦ 

+ ♦ ♦ 

♦ I 

128 ♦♦♦♦♦♦♦♦CALL RE AC j EPCM 1 MONTH j J 


. ♦ * . 
• * IF 
* EPAET .N 
♦E. 0.0 

♦ . . 

t\ * 


* . T 

*♦♦♦♦ 

♦ ' 

♦ 


♦■■-v--- — -♦ 

♦ 00 LOOP TO ♦ 

♦♦♦♦♦♦♦♦♦♦♦ STMT tf 129 ♦ 

♦ ♦ DAY = 1 *DPY ♦ 

♦ ♦ r 


GO TO 133 




134 


135 


136 


137 


138 


139 


1 . 



I CAY =274 
I DRSF ( 366 ) =0.0 


1 


I 


CALL RE AD C OR SF ( CAY 1 1 


CALL DAYNXT l DAY # DPY I 


. ^ 9' 

. ♦ IF 

* DAY . NE. 

♦ 274 

* . 

* , * 

F 


T 

*♦♦♦♦ 

* 


GO TO 134 


u:.:::..: . ♦ ^ * . 

. * IF * 
♦ CONOPTd . 

*11 .NE. i 

■■ ■■; * . . * 

* . * 

• f 


T 

*+♦♦♦ 

♦ 


GO TO 137 


1.0 AY =274 
DDIW1366) =0.0 


I 


CALL REAP C DC l W (DAY ) ) 


CALL DAYNXT (DAY, OP Y ) 


• * * • 

• ♦ IF * . T 

* DAY .NE. *44*4 

* 274 * 

♦ . . * 

♦ . * 

F 


GO TO 136 


* 

*1 


. * * . 

* IF * 

CONOPT ( 7 
» EQ. 0 

* . ♦ 

F 


T 

f 

* 


GO TO 139 


I DAY^=274 

I 


4 . f - ■ 


CALL READ ( DMXT ( DAY ) , DMNT ( DAY! ) 


CALL DAYNXKDAY, DP Y ) 


. * * « 
. * IF 

* DAY .NE. 

* 274 

♦ . 

% V * 


♦ 

* 


T 

♦ 


GO TO 138 


CALL READ (NSGRD ) 


Hv 



JC-17 


;| 


I 


#. ♦ ♦ • 

. * IF ♦ • T 
* NSGRO .E ♦ ♦♦♦♦ 

* Q * 2 . . • * 

f ! 


GO TO 141 


CALL BEAD (WSG* SGRT ) 

• — — ————— — — — 

. * * • 

• * IF * . T CALL READ! WSG2* SGRT2 * SG 

* CONOPT ( *+fff MO) 

*81 *EQ. 1 * 

♦ . . * 

* , * 

F I > 

!♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ ♦♦♦♦♦♦♦♦ 

♦ * 

♦ DO LOOP TO ♦ 

♦♦♦♦♦♦♦tf44 STMT # 140 ♦ 

♦ ♦ KRD = 1 » NSGRO* 

♦ f — + 

♦ I 

♦ CALL REAO(ISGRD) ‘ 

♦ 

140 444 ♦♦♦♦♦CALL READ ( ORSGP ( I SGRL) ) ) 

C READ RECORDING RAIN GAGE HOURLY TOTALS 

141 CALL READ ( 1 WBG , YEAR * MONTH* DATE * CN) 

C PUNCH NO NUMBER AFTER CN ON YEAR • FQ. 98 CARD 


• * * . 

.v . ♦ IF ♦ T 

* YEAR .GE *♦♦♦ + 

*• 98 * 

* * 

t | * 



HRF = 12*(CN-I)U 
HRL = 1.2'* ( CN - L I ♦ L 2 
DAY =MEDCYi MONTH )+D ATE 


♦ DO LOOP TO ♦ 
♦♦♦♦♦♦♦♦♦♦+ STMT # 142 ♦ 

♦ ♦ HOUR = HRF, HRL 

♦ !:* — — ♦ 

■ ♦ I 

• ♦ 

142 ♦♦♦♦♦♦♦♦CALL RE AD (DRHP I DAY* HOUR!) 


. * IF ♦ • T 

♦ DP Y •ME. *♦♦♦♦ 

♦ 366 .OR. MONTH .NE* 

*. 2 .OR. DATE .NE. * 

* i . * 

* . * 



♦ DO LOOP TO ♦ 

♦♦♦ + ♦♦♦♦♦♦4 STMT * 14 3 [♦ 

♦ ♦ HOUR ® HRF, HRL 

♦ * T * 

♦ 0RHPI366* HOUR ) = DRHPI60 * HOUR ) 

♦ 


143 ♦♦♦♦♦♦♦♦DRHP (60* H(j)UR ) = 0.0 


C-18 


i 




(141 I 


C CALCULATE PRECIPITATION WEIGHTING FACTORS 


I DAY =27 A 


. ♦ * . 
. * IF 

• NSGRD .E 

*Q. 0 

* • 4 

i i * 


T 

* 


GO TO 151 


| PDAY -274 
| RDPT -0.0 


| EHSGD=SGRT 


• * * • 

• ♦ IF * . T 

♦ SORT .EQ ♦♦♦♦♦ 

*. 0 * 

* . . * 

♦ . * 


EHSGD -•* 24 




| EHSGDF =EHSGp 
CCNTINUE 


♦ 00 LOOP TO 4- 
♦♦♦♦♦♦♦+♦♦♦ STMT # 150 ♦ 
♦ ♦ HOUR =1*24 > 


| RDPT “RDPT +DRHP l DAY* HOUR) 


j . * IF 

* HOUR .NE 
*1 EHSGO 

I * • .. '« 

: ♦ . * 

FI 


♦ * J j 

' * 

♦ 


GO TO 150 


. * * . 

• * IF ♦ • T 

♦ ROPT .t E *♦♦♦♦ 

♦. 0.0 * 

* . . ♦ 


GO TO IA7 





u 


Hi 


* * * • 

• * IF * • T 
♦ COMOPT ( 8 •*♦♦♦♦ 

♦I • EO« 0 * 

♦ . . * 

.. ■ ♦ # * 

F 


T 

* 


. * * . 

• ♦ IF * 

* DAY .NE. 

♦ SGMD 

* . . * 



1 



Tmsg " 

- W S G 2 



1 SGRT 

~ SGRT 2 




1145 I 


151 BACKSPACE ^ 11 

♦*~RITE C lT) 

«■ iRPLCTC(I), 1=1,1832) 


( j 




BACKSPACE 18 



+ "wiUTE^uir 

♦ CRCCKMA ( I It 1= It 123 07) 




RETURN 


v ( i 


END 


% V .. • ’ 


’ 






SUBROUTINE WORSTCIPCAY, 6 ATES .MONTH, EDATE,MSBD 1C, POATE.LDAY) 

COMMON/ PLOTC/DRSF.DSSF.CONOPT.THSFO.TMSTF, STMROSI l2I,6»tOPY,TlTlEt 
KFLAG, IDFL AG, 

I ENDFG, STUDY (2 ) , PE AKS , PHRS , NS PT S , THSFDM , TF MAX-0 , TMRTF, JPLOT, 

NCTKI ,CTR l,F IRR,R ICY. OPSE , ROOF SM , SPBFLW , SPT WCC , SPM , ELD I F, 

XCNFS» FFORfFFS I , MHNSM, DSMGH, PXCSA.RMPF . RGPMB, AREA, F IMP, 

S.ATKI , UHF A , 

MNRD, 

FWTR,VINTMR,nUZC,SUZC,LZC.ETLF,SUBWF,GWETF,SIAC,RMIR, 

B I VF , 0 F S S , OF S L , 0 FMN , OF MN l S , I FR C , C SR X , F S K X , CH C A P , tXGPV, 
BFNLK,BFRC,GrtS,UZS,LZS,RFMX, I F S, BFHKC , BFKi ,BFNRC , PFNHX. IF PRC, 

I F R L , L S F. F T , N 3 T R I , F N T R I , P X r K I , N C S T R l , H T R i , T F C F S , F P A F T , FPGP., 

TPLR, VINTCR » HSG,NRTF-I » SP 1 r »CSF , SPDR , (JFUS ,OFUS I S , OFR, OFR TS, PTTI S» 
iRHFC, URFtF , AM I F , AMNET , AMPET , AMSNF. , AMFS 1 L , SASF X , S AR AX, SRX , VWI N, 
‘WCFS,RHFMC,SSPT, JFRF,OFRFIS,COOF,EOOFIS,SOFRF,SCFRFI, 

SOEPTH, MULTI , ID, ASM, /iT4AM , WT4PM , S AX , T ANS M, SP T W , ST MO , SFMD, ASMRG, 
OEPENO ( 2 ) , VARI N ( ?. ) «NPTS, JULDl * I YP ,TODAR Y( 5 , 1 ) , 

TCMARYI7,! > ,TOSAKY< 5,6, 1 ) , T SDARY <6 , l ) ,TSM ARYI 3 » 1 1 , 

TSSARYI 3 ,6, l ) , TSMCRYd } , TSCCRY ( i ) , TSRARY (1,6,1 i , 

TOR ARY (1,6,1) , 

DRSFT 1366) ,DSSFT 1366) ,MI ,NI , MULT , TMRTFT 1 1 2 ), TMSTFT t 12) 

CCMMCN/COMMA/EMHFNX ,EMGWS * EMI FS , EMLZS.EMS t AM , EMU1C, EMUZS , TMBF, 

' TM I F , TMPREC , TM-SE ,Cw FMI , ODI W , DMNT , DMXT , DRGPM* ORHP , C>R SGP, D PFT , FDL ZS , 
EPCM , SFK A , SFRR , S ESF ,SGER , THS F , TM FS I L ,TMNET ,TMOF , TMPET , TMRPM , TMSNE, 
. TMSTF1 ,T200FH,T20PRH, TMRTFT, JULDAT, i 

TFMAXY,UZC, AST X, OAY ,NSGRD , AEX90 >5 1 AM, NDSDP ,RGP M , NOSDR , YR1, 
r TRHF , 

SINDEX, INDEX, AEX96, MAXI , YR2 , B YLZS, BYI FS jfiYUZS 
C KENTUCKY HAT ERSHCC MODEL I VERS I ON OF JUNE 6, 1970) 

C BASED ON STANFORD WATERSHED MODELS III G IV 

•.,/ ' ■ • j.; T . •••. ■. .. ;'»• ' ■. 

DIMENSION BTRI ( 99 ) , CONOPT (1 6 ) ,CRFMl(22> * CTRK 99 ) • DD I W < 366 ) f 
DMNT<366), DM XT J 366) , OPSET 366 ), DRGPM ( 366 ) , DRHP(366,24) , 

DRSGP ( 36 6) v DPET (366 ) , BR Sf ( 36 6 1 » OSS hi 366) • f:DLZS(366l, 

ERBFNXl 15 r 3 ) r EM GW 5 ( 16* 3) ,EMIFS( Lb , 3 ) ,-fc MLZ S ( 15, 3 )[, ir MS l AM ( 15 ,3 B 
EMUZCt 1 5 t 3 ) i E ^UZS T 15,3) f EPCM< 12 ),FIRR< 15) , MEDCYl 12 ) ♦ MEOv/VI 1 2) 

RICY ( 3 7), §ATR I (99 ).., SERA (2 2) , SCRR(221, SESF(22)t SQER122), 

TH SF ( 2 4 I • T I H E (18) ♦ TMBF ( 15 , 3 ) , T VF SIU 12 ) ? T M I F (15 ,3 ) , TMN5 T ( 1 2 ) , 
TMOFU-5, J) , r M P6T( 12 ) , T MpRhC ( 16, 31, TMRPM (1 2) , TM« T r ( 1 2 1 , T M St (15,3), 
TMSNt ( 1 2 ) , TM$TF( 15,3) , TM S TF I ( 15,3 ) , T200FH (21) , T23PRH < 2 1 ) • 

UHF A (99 ) , TMRTF I ( 12 ) , JULDAT ( 6 ) , ThSHOl 744, 3 ) , TFM AXY( 366) » 

PEAKS (6 ) , PhRS (6),NSPTS(6), THSFDM (6) 

LOGICAL LSHFT | | ' 

INTEGER CDSDR ,CN,CQNCPT, DATE, DAY, DPY,EHSGD, HOUR# HRFrHRLfPDAY, 

PRD, RHPD, RHP h,RSBD,SGMD,SGR T,SGRT2, YEAR ,YR1, YR2, PHRS, SI NDEX 

INTEGER TOMARY ,TSMARY» TOCARY, T SOAR Y,TOSARY ,TSS ARY 

INTEGER DATES, EDATE r - ^ , .. . .... 

DIMENSION RPLOTC ( 1832) ♦RGQMMAt 12007) 


EQUIVALENCE (DPY ,RPLOTC (; I) )» ( GRF MI.RCOMM AM) ) 

REAL IFPRC, IFRCt IFRL, l FS ,LZC , t ZRX , LZS , LZSRi MHSM, MNRD , MRNSM , NHPT 
DATA MEDCY/ 0, 31,59,90, 120, 151,181,212,243,273,304,334/ 

DATA ME OWY/ 304, 334, 365, 31,59,90, 120, 151, 181,212,243,273 / 

REAL MXDRS'F , MXDSSF , MXMRSF , MXMSSF, SSOD 

REAL SSQM, SSQDI ,SSQMI ,VDRSF,VDSSF 

REAL VMRSF.VMSSF, SDDRS F , SDDS S F , SDMRSF, SDMSSF, SMDQ, SMMD, SMSQD , 
SMSQM 


!; ( I) 


REAL MDRSF, MDSSF»MMRSF,MMSSF 
BACKSPACE ^11 

♦ tr RlAD~TuT” 

♦ (RPLOTC ( 1 ) ,1=1,1032) 


C-22 





148 


149 



. * IF * 

* DATE. GT. 

• I NO C ( 0 A V « M D A YJT 

* . * 

• . * 

F ] ■■ ♦ 


CONTINUE 


PET = ERCM ( I MONTH MOPE T ( DAY I 
PETU -PET 
TFMAX=0.0 
--- 

EVAPCTRANSP I RAT I ON ADJUSTMENTS 

I 

• ' 

♦ • * 


• CONQPT ( 7 

*1 .NE. 1 

* . 

.> ' * • * 

F 


I f * ’ V T -r— 


* 


. r- i 

. * m * v - * / 

. * IF ♦ . T 

♦ OMXT< CAY 

*) - 4.0*ELDIF .LT. ♦ 
♦4C.0 * 

* . . * 




pet = a.o 


♦ + ♦+ f + + FI + + f + ff + + 


• ♦ IF * 

* SPTVi .GT 

* *• VSPThCC 

* . . * 
* . ♦ 


T 

* 


PET = F FOR ♦PET 


* "~{? 4 f+^W+f f f f- ♦>***♦♦♦ 

C CALCULATION OF SNOW EVAPORATION 

i 


. ♦ ♦ . 

. ♦ IF ♦ . T 

* ■ DMNT ( DAY 

*1 .GT. 32.0 .OR. SP* 
*TW .LE. OP Sir (DAY) ♦ 


GO TO 153 


SE =CPSE<DAY) 
AMSN£-APSNE+S6 
SPTVi =SPTVs-SE 


• » *• 

• • IF 

♦ SFMp .GT 

0 »0 ;•’•• 



CC-24 


i* 







PER l =0.0 
PPi =0.0 
OFR =0.0 
OFR l S=0. 0 
fail =0.0 
weiFS=o.o 

PHEUZS =0.0 
PKfcLZS =0.0 
PMEtFS =0.0 
PMECFS =0.0 


CALL PREPRDiPGPM, DRHPtO 
AY t HOUR , DPY # PRD tPEP . 


IF 

CONQPT 12 


IF 

CPUS .GT 


IF 

NRTRI .G 


1 1 TRHF =0.0 


IF 

RHFO .GT 



118.4 I 


RAINFALL UPPER ZCNE INTERACTION 


• ♦ * . 

• * IF ♦ . T 

♦ PEP .GE. ♦ ♦♦♦♦ 

♦ VINTCR ♦ 

* . • * 

n* 



U IS -UZS>PEP*TPtR 
VINTCR -VINT CR-PEP 
PPI =0.0 
PEBI =0.0 
PMEUZS =PEP 


• !• '♦ . . 

, • * IF * L. T 

* ! OFUS .GT *♦♦♦♦ 

♦v 0.0 * 

* . . * 

m* 


GO TO 159 


1170 I 


PPI =PEP-Vl NTCR 
UZS =UZS+VINTCR«TPLR 
VINTCR =0.0 
LZSR =LZS/LZC 

UZC ^SUZCsAErXOO+BUZC^EXPI-Z.T 

♦LZSR) 


• -8 ♦ . 

. ♦IF ♦ . T UZC = 0.25 

♦ UZC *LT. 

♦ 0.25. • r i 

♦ . . I ' • ♦ 

♦ * — - — 

F 1 ♦ 


I UZRX =2.0*ABS<UZS/UZC-l.G)f 1.0 
I FHR =< l.0/< l.O*UZRX))**UZRX 


I . * * . -r 

• ♦ IF * . T FMR = 1.0 - FHR 

♦ UZS .GT. *♦♦♦♦ 

* UZC * 

♦ . . ♦ 

♦ . ♦ . — — — — ■ — . — - 

• F t • 4. 

♦♦♦♦ ♦♦+♦♦♦♦♦> 


PEBI -PPI *FMR 
PHEUZS -PeP— PEBI 
UZS =UZS>PPI-PEBI 


C*27 


I 

LCW EH ZONE AND GROUNDWATER INFILTRATION 

l 


LI SR - L Z S / LIC 
E I D =*.C*LZSR 


* * . 

• * IF * 

LISR .LE 

f* 1.0 

* • * 

F 


T 

* 


GO TO 160 


| £iD =4.0f2. 0* (LISR- 1 .01 

i 



I 

♦ 


GO TO 160 


P E B 1 - P E 9 1 ♦ 0 F U S 

CK I R -0 • 2 5*SlArt*B8TR/ ( 2*0** £10 ) 
C I VH = 3 1 V F * 2 .0 * * LI SR 


♦ 

* . 


CIVN = 1.0 


. * * . 

, * IF * . T 

CIVH .LT *1 

1.0 ♦ 

* . . * 

* . * 

F I ♦ 

| 4* -M- ♦+++>♦♦♦♦♦ 


| PEA I =PEB I *P EB 1/ ( 2 .0 * CMT R *C I VM 1 

I ir = PE bI»P 68 I /7 2~0*Cm7r') 

i 


♦ , 
*. 


• * * • 

> ♦ IF * • T 

PEB! .GE *♦+♦♦ 

CHIR * 

♦ . . * 

* 1 * 

F ] ♦ 

| 4444444444444444444444444»4444 



♦ 

♦ 


. 

. * 

♦ . 

“T ^ ^ “ ^ir -» wt ^ r* — - — w » ™n i-tr 

♦ 


. ♦ IF 

* . T 

PE A I a PEBI - 0.5*CMIR* 

♦ 

* 

PEBI . 

GE 

C I VM 

♦ 


1 CHIRAC IVH 



♦ 

♦ * i 


* . 

. * 

* 

B u — TTT «_ _■ jj JJ ■ • '-j! ■ _lll * T- • - ji Jfl 


j 44 44 4 4 4444444 4 4 44 44 4 44 444 4444 4 
| hEI FS*Wl-P£A I " } 


•C-28 



I 


a 


♦ 

♦ 

♦ 

♦ 

♦ 

. * 

♦ 

♦ 

♦ 

♦ ' 

♦ 

♦ • 
♦ 

♦ 

♦ 

♦ 

♦ ! 

161 ♦ 

♦ 

♦ 

♦ 

♦ 

■: ♦ : 

♦ 

♦ 

♦ 

♦ 

. •, >:j 

f 

♦ 

♦ 

♦ 

4- 

♦ 

♦ ' 
> 

♦ 

. . ♦ ■ 

♦ 

♦ 

162 ♦ 

♦ 1 

t 

♦ 

163 * 

♦ 

' ♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

.f 

♦ 

♦ 

♦- 

♦ 

♦ 

♦ 

■-v:-' ' r ♦ '■ 

♦ 

♦ 

■ : • ♦! 

. ♦ 
♦ 
♦ 


• ^ ^ • 

. » IF ♦ 

♦ PEB I .LE 

♦ .OPUS 

* • ;• * 

J 1 * 


T 

*♦♦♦♦ 
* • 


GO TO 161 


PMELZS -iPJE.B l-rWI )*( ( PEB I -OF US I 
/PEB l ) 

PHEIFS = WE u s* ( ( PEB I -OPUS) /PEH 1} 
PMECFS = PfcAT* ( ( PEB I-OFUSI/PEBI I 


CONTINUE 


• ♦ * , 

• ♦ IF * . f 
* CP E A 1 — ♦ 

♦OPUS ) .GT. 0.0 * * 

* • t *■'■■■ 

Ft* 



I EQD = tOFUS«-PEAI)/2.0 


-1163 | 


T ECO =EQDF*7 7pE a7-0FUs7**0. 6 > T 


• * * « 

. * IF * . T EQD = 0.5*M 

j* IOFUS + * + * + + 

*PEAI ) .GT. <2. 0*EQD* 

*» * 

*• • . ... . * 

ft* ♦ 

I ♦♦♦*♦ 4- 4- ♦+♦ + ♦• + ♦♦♦++ + ♦ + ♦ + ♦■ *♦♦♦♦♦ 


0. 5* IOFUS ♦ PEAII 


.... * * . 

. * • IF * 

* IOFUS ♦ 

! *PEAI) .LE.' 0.001 

1 * . _ I . * 

ft* 


T l 

srrrr 


GO TO 164 


*0.25*0FRF*( ( (OFUS+PEA I 1*0*5) 
**1.67) *11 1.0*0. 6*1 (OFUS 

PEA I ) / < 2 . 0* EQO )) **3 . 0 J ** 1 .67 ) 


\ ' '•••• ** . * « 

. * IF * . T 

♦ OFR . GT . ♦♦♦+ f 

♦ «0.75*PEA 1 ) * 

* • • * 

* . * 


OFR = 0. 75*PEAI 


M.: 





■ C-2'9 


'k t 

m 


> 

♦ 

♦ 

4* 

165 ♦ 

4 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

' ♦ 

♦ 

♦ 

♦ 

♦ 

' ♦ :■ 

♦ 

. 4 

♦ 

. * 

. ♦( 

j 

166 ♦ 

♦ 

167 ♦' 

' 

♦ 

♦ 

♦ 

♦ 

4. 

♦ 

.4 

♦ 

♦ 

♦ 

4 

4 

. .. > . f 

♦ 

♦ 

4 ' 
♦ 
4 
♦ 
♦ 

••• • ♦ . 

4' 

♦ 

. \ 4 

4 

4' 

' - ■: ^ 

168 4 
4 
4 

•••••:%••• 
V. 4= . 


* * * . 

| . * IF * * T 

* FIMP • EQ *4444 

*. 0.0 ♦ 

* - , ♦ 

* • * . - 
F I 


GO TO 168 


J PEIS = PP I +OFt S I S 


* * ♦ . 

. * IF * . T 
+ (PEIS - *4444 

♦QFUSISl .GT. 0.0 * 

■.*■■•■ * 

F I * 



j | EQDIS=<OFUSIS*PE15>/2.0 


1167 I 


I EODI S=EQDFI S*( ( PE IS-OFUS I S) **f>.6) I 


. * IF * . T EOO IS = 0.5M0FUSIS ♦ P 

* - • - IOFUSIS *«-«-♦♦ El S) 

**■ PEIS) .GT. <2.0*E* 

♦QCISI * 

♦ . . * 

* . * — 

F I ♦ 

I 4 444444444444 444 44444444444444 


.-••••.* * • 

• * IF * . T 

* IOFUSIS *4444 

*4 PEIS) .LE. 0.01 * 

*. . * 

* I * ' • 


GO TO 168 


OPR IS- 0.25*0 PR FI S* ( ( ( OPUS I S+pE IS ) | 

*0.5)** 1.67 )*( ( 1.040.6*1 ( I 

OPUS I S 4 PEIS)/(2.0*E00FIS) )**3. 0) ** 1 .67) 


I . * IF * . T OPR I S = PEIS 

* OPR I S *G *4444 

*T • PEIS * 

* . * ~ • 

P I ♦ 

1444444444444444444444444444444 


TGFR =TOPR4PPFR*OFR4FIMP*OPRIS 
4PPI*F*TR 

CPUS I S =PE IS-OPR I S 
GPUS -PEA I -OPR 




-C-30 


■M 


a 


t* 


p 


♦ 

♦ 

♦ 

♦ 

♦ 

* ♦ 

♦ 

♦ 

♦ 

♦ 

4 

♦ 

♦ 

♦ 

4 

♦ 

♦ 

♦ 

♦ i 

169 4,! 

♦ 


I 


. 


• * * - 
• ♦ If 

CFlIS .GE 

0.001 

* . 

♦ . ♦ 

f 



4 
4 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
4 
♦ 
♦ 
4 
4 
♦ ■ 
♦ 
♦ ‘ 
♦ : 
4 
f 

♦ 

170 4 

4: 

• 

4 

♦ 

♦ 

... 

. . +- 

4 
‘ 4 

• . • 4 

♦ 

■ ,4 

4-! 

♦ 
4 
4 
4 
. 4 
4 


1 ZS =IZS*0FUS 
CPUS *0.0 

C F R-IS = C F R l S+ 0 F U SIS 
CJFUSiS =0.0 


1 

1 


LZRX =l.5*ABS< LZS/LZC- 1.0)41.0 
FKR -( 1.0/11. 04LZRX) )**LZRX 


T 

♦ 4444 

* 


c> 


. ♦ * . 

♦ IF 
LZS .LT. 

^ LZC 

* . . J 
* ♦ 

F | ♦ 

♦ 4444 4 4 444 4 44 4 4444 4 44 4 44444444 


FMR = 1.0 - FMR* ( LZS/L 2 


PLZS =FHR*( PEB I— W I 1 
PGW = ( l.O-FMR)*( PEtil-WI )*t 1.0 
— SUUWF ) *FPEK 
GWS =GWS*PGW 
BFNX = BFNX*PGW 
LZS =LZS+PL ZS 
IFS =IFS+«fc IFS*FPER 

1 

* i • • f . 


1 SP IF = 1 FRL* I FS 
( AM IF = AM 1 F+S P I F 
1 IFS =1FS-SP IF 



- 


i 




— — 

. ♦ * * If* * ♦ . 

IFS .GE. 
0.0001 

♦ . . * 

T 

♦ 4444 

♦ 

GO TO 

171 



. * 4 ' 

171 4 

4 

4 

♦ 

♦ 

4 

4 

4 

172 4, 


LZS -LZS4IFS 
IFS =0.0 


I 


UHFAI1) =FPER*CFR4PPI*FWTR4F1MP 

*OFR 1 S 4 SP I F 
SPOR =UHFA(1> 


V" . . **M‘ 


I 


C ROUTING 




4j 

4 


l 


I 


. * * . 

:*.V- ♦ IF 

* r CONOPKl 
♦2) .;ne. i 

♦ . 

♦ . ♦ 

F 


T f 

♦ 4444 

# 


GO TO 173 


.4 
■ 4 
4 
4 
4 
♦ 


| URHF -URHF40.25*UHFA( 1) 

r 
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C— 31 




• * ♦ . 

• * IF * . T 

♦ PRO .NE. *++++ 

* 4 ♦ 

♦ . • ♦ 

? t * 



I UHFA(l) =URHF 
- 


I TRHF =0.0 
I KTRI =NCTRI 


. * * . 

. * IF * . T KTRI = NCST 

* CONGPTU 

*31 .EQ. 1 ' * 

* • • * 

i * * * ♦ — — 

F I * 


| URHF -UHFA (KTRI ) 


# » IF * . T GO TO 176 

* URHF .LE 

♦. 0.0 * 

— •- * • ^ - ‘ v ♦ * ' — ; 

* . ♦ — 

F * ' * - - ' • 



| TRHF =TRHF*URHF*CTR I (KTRI.) 


« * ^ • 

. * IF * . ■ T 

♦ CONOPT ( l ♦ ♦♦♦> 

♦3) .EQ. I .AND* L5H* 

*FT .‘AND. KTRI .GE. * 

♦ * . * 

♦ • * 


F | 

SATRI (KTRI - 1 



| URHF* SATRI (KTRI - 1) 
! UHFA(K1*RI | ♦ 1) = URHF 

nii"l 


♦ ♦♦ 4- ♦ ++ ♦ ♦♦ +♦♦ + ♦ 

) 


UHFA(KTRl| 1) = 0.0 

T"trT“ktri-i 


i . * * . 

| • * IF * . T 

• KTRI .GE ♦♦♦♦♦ 

*. 1 ♦ 

* . . ♦ 

♦ . ♦ 

F I :n ; ; 


GO TO 174 




• * IF * 

♦ CONQPU i 

*31 .NE • i 

* . . * 
* . * 

F I 


T 

* 



GO TO 182 


• * * . 

• * IF * . T .1 

* CONOPTd 

* 2 ) .EGi l .AND. PRO* 

* .N E. 4 * 

* • . * 

t \ * ' 


CALL RTVARY <CTRI,SATRi , OTRI , CHC AP , NBTR I , MXTR I , NCSTR I , EXQPV , LSHFT, 
TFCFS ) . 

T DATE =MOD ( DAY * MDA Y ) ] 


. * * 

♦ IF 

LSHFT 

♦ . ♦ 


T 


WRITE (6,6) DATE, HOUR, PR 
Di NCSTR I 


♦ 

182 ♦ 

■ ♦ 
♦ 

■ ♦ 
♦ 

4 - 

♦ 

■ -f 

♦ 

♦ 

♦ 

• . ♦ 

♦ 

♦ 

♦ 

. ♦ 
♦ 
> 
♦ 

■ ♦ . 

♦ 

♦ 

♦ 

■ ♦ 
♦ 
* 

♦ 

♦ 

♦ 

♦ 

♦ 

- 

' . ♦ 

♦ 

* 

♦ 

♦ 

♦ 

'V, 


rEH ELEMENTS) 
CONTINUE 


• * * « 
. * IF 

♦ TFCFS .L 
*E. C.5*CHCAP 

* • , 

1 1 * 


FORMAT 6 FORMATI2X, 12,2*, 12, 2X, 
12, 2X f 20HHISTOGRAM 
CHANGES TO, IX, 12, IX, 


T 

* 


SRX = CSRX 


. * * . 

• > IF * . T SRX = CSRX 

* IThCFS . * + ♦♦♦ 

* GT. 0.5*CHCAP) .AND* •’ • V.- •*' - v 

*• ITFCFS .LT. 2 • 0*C* V, ’ 

* . . * ~ . 

* ♦ — — 

. F ♦ 

I ♦♦♦♦ ♦ ♦♦♦♦++++ +++++++*+4+++++++ 

♦ ( FSRX j C3RX)*(( TFCFS - 0 . 5*C HC AP ) / t 1 . 5*CHC APT )**3 

• * # * . •: TZ.™ 

. * IF * . T SRX = FSRX 

* TFCFS .0 *4444 

*! • 2 . 0 * C HC A P ♦ 

* . . ♦ 

* . * — — — 

F 1 * 


. * * . 

. * IF * 

* TFCFS .L 

*£• TFMAX; 

* . . * 

Ft * 


T 

*4444 

* 


GO TO 183 


I PROF fepRD 
| 70FP24 -HCUR 


;« 


♦ 

♦ 

f 

♦ 

: >. 

’ ♦ 

'■ ♦ 

♦ 

■f 

♦ 

♦ 

. ! ♦ 

♦ 

■ ■ ; ♦ • 

183 V 
♦ 
+ 
♦ 
♦ 
♦ 

184 ♦ 
♦ . 
♦ 
♦ 
♦ 
♦ 
♦ 

• ♦ 
— * 
+ 

♦ 

♦ 

♦ 

♦ 
♦ 
♦ - 
♦ 
♦ 

> 

♦ 

♦ 

♦ 

♦ 


I . ♦ IF * * T TDFP24 = ( TDFP24 - , 1.01 

* PRO .LE. *♦♦♦♦ ♦ 0.15*PRDF 

* 3 ^ * 

* . ♦ 

!• f I ♦ 


I TFMAX= TFCFS 
T~ARhF*=ARFFvRHFi 


ST CRM OUTPUT REQUESTED BY CONOPT(l) 


• * ‘ * « 
. * IF 

♦ CONOPTII 

♦ I. *NE. l 

’ * • • 
* . * 

F I 


. * * . 

. ♦ IF 

♦ CAY .NE. 

* CO SDR 

♦ ... 


* . T 

♦ 

* 


GO TO 186 


* * T 

* 

* 


GO TO 186 


• ♦ * . ' ‘ r::vr:“ •-■-;•• • 

. ♦ IF * . T WRITE (6,7) ~ 

♦. HOUR •EQ ♦ ♦♦♦♦ 

♦ . I • AND* PRO • EQ« ♦ 

*1 • ♦ 

* . • ♦ * _v 

F I * “ r * * 

I ♦ + 4+ +•♦+>♦•*++ ■+♦ + ♦ +++ + + 4* ♦ <•■+>+ + +.+ 

, FORMAT 7 FORM AT ( 1H/ / t 21X, 

19HRAI NF ALL DEPOS ITT ON, l 2X t 16HM01 ST ORE STORAGE, 
14X, 1 7HSTREAMFLQW ORI GI N, 6X, 14HSTRE AM OUTFLOW /2X,ll 6H0Y HR PD RA 
IN EUZS 6LZS EIFS EOFS UZS LZS 1 IFS OFS $ 

PCF SPIF SPBF SPTF INCHES CFS) 

[ _ v ‘ ' -J ^ % ; 

• DATE =MOD ( D AY ? MDAY • ’ 

. (OFS =OFUS*FPbR+UFUSl$*FlMP 

SPCF = 0F R* FP ER ♦OFR rS*F l MP + P P I *FWTR # . . , , ^ . , 

SPBF =0.2S*( C8F-HSE) ... - 

SPTF = SPDR+S P BF 
SPDR =0*0 v.:1' 


• • . » ♦ ♦ • 

• * IF * • T TFCFS = (CB 

♦ RHFO .LE *♦♦♦♦ S 

♦. 0.0 ♦ 

• « * 

F I * “> 

+++++**♦+**+ +++++• 


| RSPTF=0.25*TFCFS/WCFS 


TFCFS = ( CBF - HSEJ^WCF 


♦ WRITE ( 6,8) i + 

CATE*HOUR*PRD*PEP»PMEUZS*PMELZS*PMEIFS*PMEOFS* U* 
♦ZS.LZS 

♦ - ' *■ 

+ 7 * 





4! 


♦ T.2QPRHI KT|Q 4 11 - PRH 

t Il^T • 



♦ 

♦ 

4 

195 t 

4 

♦ 

♦ 

.. " ■ 

♦ ■ 

♦ 

■ . . 

: 4 ■ 

• 4 ' 

♦ 

196 ♦ 

4 

4 

4 

4 C 
4 
4 : 

197 ♦ 

4 : 

4 

4 

4 


T2 OPRH ( K T 20 ♦ 1 ) f T20PRH1KT20) 

T’kT20=KT20-i” "T 

r - — - 

7m~I 

| 

| T20PRHI11 =P RH ” T 

r ~~ ■ 

ADDING GROUNDWATER FLOW “ 

_! 

I CBF =GWS*BFRL*C l .0«-8FNRL*BFNX ) 

GWS =GWS-CRF 
AMBF = AMGF+CBF 
THGR = ARH F+CBF 



:i f; I 

:l ‘i 






4 ; ■ 

4 

♦ 

♦ 

4 

♦ : 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

■ 4 : 

♦ 

♦ 

4 

♦ C 

♦ 

♦ ; 

♦ 

4 • 

. > . i 

♦ 

4 

4 , : " 

■ 4 

4 ■; 

4 

4 

;.-,'4 : 

4; : 

4 

4 

4 

4 

4 . 

4 

4 

♦ 

4 

4 

4 

4 . 

4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
•4 
4 ; 

4 1 : 

; 4 1 • 

• 4 
4 
4 

1 4 

.. 4 ; 

4 


] 

rif NX = 0. 97*BFNX~ 

“ 


• • * . 

. • IF * . T 

• PET .EG. 4444 4 

* 0.0 * 

. ♦ 


♦ t ♦ 

F I 


GO TO 202 


EVAP-TRANS LOSS FRCM GROUNDWATER 

] ___ 

GWET - G W S * G W E T F ♦ P ET * F P E R 
GWS =GWS-GwET 
BFNX =3FNX-G WET 


T 

*4444 

4 


8FNX -• 0.0 


. 4 * , 

. * IF ♦ 

* * BFNX .LT 

♦ . 0.0 

* . . ♦ 

* ? * 

F 1 * 
1444444444444444444444444444444 


| AMPET=AMPET4PET 

~ r 

. .♦ * * . 

* * IF * < 

♦ PET .GE. 

♦ uzs 

* • . * 

- ♦. . * 

F 



UZS - UZ S-PE T 
AM NET = A«NET+PET 


♦ t 

199 > ! 


(> v 

A.' 


1202 I 


I 


. ' 4 " ■ •• *r$H • 


PET = P E T— UZ S 
AMNET=A*-NET4UZS 
UZS -0.0 
LZSR - L Z S / L Z C 




• ♦ ♦ « 

. ♦ IF 

!♦■ PET .GE. 
* ETLF*LZSR 


*4 T 

*4444 

4 


GO TO 200 


| SET =PET*ii.0-PET/(2.04ETLF*LZSR)l I 

~~JZ 

T201 T V, ' •. 


<•0-40 


I 


230 > 

♦ 

201 ♦ 

♦ 

♦ 

♦ 

♦ 

202 ♦ ♦♦♦♦•*• ♦■♦CCNT INUE 


I SET =0.5*ETLF*LZSR 

" 7'~ 


LZS =L Z S-SE T 


AMNET*AM4£Tt set 

. --- 


C END OF HOUR LOOP 


203 


o 


I OSSHOAY) =TDSF/24.0 


# ♦ ♦ . 

• * IF * 

♦ CONOPT (L 

*11 r EQ> 1 

* • • ^ 

* . * 

F 1 * 

444444444444444444444444444444 


T 

*4 44 4 

* 


OSS F( DAY) - DSSF(DAV) 4 
DO i W (DAY) 


I A MR t AMPT F+DRSF ( CAY V 
| AMSTF-AMSTF+DSSF ( DAY ) 


♦ 

*» 


• ♦ * • 

* IF ♦ 

CONOPT ( 6 

»EQ« 1 

♦ . * 

♦ - * 



; ,, f | ♦ 

J4444 444 + ; f4444**444444444444444 

C STORE ERRORS AND FLOW DURAT ION” 

I 


• * * . 
4 ♦ IF 

* CONOPT (A 

*1 • NE. 1 
* . 

* . * 


* . T 

♦ 444 4 

* ■, 

♦ 


GO TO 204 


f-A - 


| ERR =DSSF(DAY )— DRSF ( DAY ) 



. * * . 

. ♦ IF 

* DRSF1 DAY 

** .Lt. I • 0 

* • « 

4 

F I 4 

\ 4 4 44 4 44 4 44 44444444444 4 4 4 4 44 444 


. * * . 

. ♦ IF * - 

* DRSFtCAY 

♦) .GT. 1.0 

♦ . . ♦ 

♦ t ♦ 

F 1 ♦ 

( 4444 *4 444 444444444 4 4444444-4444 

CRFMl (KRFM-H =CRFHI (KRFMI »«-l.O 
SERKIKRFMH *SERM KRFMI )*£RR 
SEHAI KRFMI ) = SER A (KR FM I KAOS ( ERR ) 

SOER (KRFMI ) «SOERtKRFMl J*ERR*ERR 
SESF(KRFMI) =0.0 



204 


T 

♦ 44 44 

* 


SESF( KRFMI ) SORT CABS ( 
I SQER (KRFM II - 


. ♦ ♦ . 

• ♦ IF 
♦ i CRFMIIKR 
♦FMI I #GT • 1.0 
P m m ■ 

* . ♦ 

f i ♦ 

f 44 4444 .44 44 44 4 4 444 4 4 44 4 44 4 44444 

SERR (KRFMI ) * ♦2/CRFM I ( KRFMI HV ( CRFMI f KRFM l > - l .0 > 1 1 
CONTINUE ' 


| DATE = DAY 


DAT E= MODI DAY » HD AY } 


• * * • " 

.♦ IF * • T 

* (MONTH. E #4444 I 

♦Q.4) • AND. I MCAY . EO. 3* 

♦11 ♦ 

♦ • . ♦ 

* * 

F | ♦ 

I 44444444444 + 4 4 4 4+4 4444 44444444 


DAT E- MOD ( DAY • KDAY 1 


• ♦ ♦ . 

. * r IF * . T 
♦ MONTH. NE *4444 

*.4 — * 

♦ • . . ♦ 

* * 

F I ♦ 

1 444444444444444444444444444444 


I 


4 WRITE(6*9) 4 

. 4 CATE, (THSF(HCURlfH0UR=l,l2l ♦ 

4 ;* 4 

4 4 . 


I 




FORMAT 9 FORMAT (lH/ f lX/ f IX, l.4t2Xt 
2 HA M f l X ♦ 6F 8 • l t 3X« 6FE • I ) 


4 WRITE (6 •10) 

4 ( TH S F ( H OUR ) •H0UR = l3»24)t DSSF(DAY) ♦ 

♦ 4 

4 4 

4. . —4 


i 

. * IF * . T 

* TDFP24 . *♦♦♦♦ 

*LT. 12.0 * 

* . . * 

♦ .. * 

■ F 


FORMAT 10 FORMAT ( IHJ.6X. 2HPM. IX* 
6 F8.it 3X* 7F8 . I ) 


GO TO 205 


TDFP12 =Tf)FP 24-12.0 

4HP.M.) ^ 

Ti06~~T 


FORMAT 


11 FORMAT ( 1H/. !0X» 8HMAX|MU W = 
t F 8. 1 »2X .6HC . F.S. .5X.4HTI MF» 
,3Xf F5.2t 2X» 


205 


CONTINUE 

4HA.M.) 


FORMAT 12 FORMAT { 1H/ , 10X, 8HMAXIMU*'= 
t F 8 .It 2X. 6 HC . F . S.t 5X ,4HT IMC. 3X» F5. 2X. 
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CONTINUE 


. * ♦ . 

• * IF * . T 

♦ MO AY. EQ. ♦♦♦♦♦ 

♦337 ♦ 

♦ . i . ♦ 


MDAY=59 


t I * 

\*** 


3 l }■ 


C STORE MAXIMUM DAILY STREAM FLOW FOR YEAR 

I 


| TFMAXY l MAXI) -JPMAX 


CCNTINUE 


. * * . ■ ■ : ’ 
. * IF * . T 

• DAY.EQ.E 

•DATE ♦ 

♦ . * 

F l 


GO TO 221 


CALL DA YNXT l DAY , OP Y I 

• ♦ ♦ . 

. ♦ IF ♦ . T 
♦ CAY.GT.L 

♦DAY ♦ 

♦ • . ♦ 

* * ♦ 

F I 



• ♦ * • 

* ♦ IF * . T MO AY=337 

♦ DAY.EQ.3 

♦ 66 ♦ - 

* .. . . * . i • •: • 

* . * 

. F I ♦ 


1152 l 




C END OF DAY LOOP 


CCNTINUE 


RETURN 


** SN * ji, * _ ..-(.A.. 


SUBROUTINE ZERCP (PCAY,6aTES, MONTH* EDAT fc, 4SQDIC» PDATE *LDAY ) 

COMMON/ PLOTC/DRSF*OSSF,CONOPT , TH SFD,TmSTF» STHROSC 121*6I*0PY, TITLE 
KFL AGt I DFL AG* 

IENOFC.STUUY12) , PEAKS , PHRS ,NSPTS , THSFDM ,T FMaxD , Tvrt F ,JPLOT , 

NCTR! ,CTRI,r IRR,RlCY.DPSE,BODFSM,SPBFLW, SPT WCC , SPM, ELD I F, 
XDNFS,FFUR,FPSI,MRNSM,DSMGH,PXCSA,RMPF,RGPM3, AKEA.FIMP, 

SATR1.UHFA, 

MNRD , 

F|NTR,VINTMR,8UZC,SUZC,LZC,ETLF,SUBWF,GWETF,SIAC,RMIR, 

81 V F , OF S S » OP S L * OFFN » 0 F MN I S * IFRC.CSRX, FSR X,CHCAP , EXOPV, 
BFNLRtBFRC.GWS.UZS.LZS.BFNX, IFS » HEHRC » BP RL , BPS' L » 8 C NHR, IFPRC, 
IlFRL » LSHFT ,NP TK l , FNTR I , MXTK I , NCS TR I * ti T K I *TFC c S«E D \ET,r o ER, 
T|PLR,VINTCR,HSt,'mrRl,SPlF,C»F,SPOR,UrUS,GFUSIS,OPF.,OFRIS,PEIS, 
RHFO, URHF, AM I F , AMNET , AMPF T » AMSNE t AMFS 1 l , SASP X , SAR A X, SRX, VK l N, 
WCFSt RHFMCt S SR T t JFRF »UFRFTS ,£tjOP • EOOF I S < SuFR r , SCJFRf l , 

SUEPTH, PUL T I , lO,ASP.,wr4AM,WT4P«,SAX,TANSM,$PTw,STMD,SFMO,ASMRG, 
DEP END ( 2 ) , ViAR l N ( 2 ) »NPTStJULUI , IYR , TOO ARY ( 5 1 1 > » 

TCPARY(7t 1) ,T0SARY<5,6, D , T SO ARY (6 , 1 ) , T SMARY < 8 . t ) * 

TSSARY (3*6* l) , fSMCRYU ) ,TSDCRY( 1 ), C SRAR Y ( 1,6,1), 

TCRARY(l,6,l), 

ORSFT ( 366 ) « QSS FT ( 366 ) , M 1 , NI , MULT* TMRTFT ( 12 ) * TMSTFT! 12 ) 

CCMKCN/COMMA/bMPFNX , EP-GWS . EM I F S . GML ZS , E M S ! AM , E *UZC . £ MUZ S , TMPF , 
TMlF.TMPRbC, TM,SE, CRFMI , UC ( W, DMN T,OKXT , DRGPM, DRHP , nR SGP, UPCT , EDL ZS 
EPCM,SERA,StRR,ScSF,SOER, THSF, TMFSIL, TP-NET* TMOF, TMPET,TMRPM,TMSNE 
,TMSTF I , T20CFH, T20PRH , TMRTF I * JULD AT * 

TFMAXY,UZC,AETX,DAY,NSGRl), AEX90.SIAM, NDSUP ,RGPM,NDSOR , YR1 , 

TRHF, 

SINCEX, INDEX, AEX96, MAXI, YR2,BYLZS,BY1FS,BYUZS 

C KENTUCKY WATERSHED MOCEL (VERSION OF JUNE 6, 1970) 

. . . j ' • : : ■ 

C BASED ON STANFORD WATERSHED MODELS III £ IV 


DIMENSION BTRI (99),C0N0PTU6) .CRFMI ( 22 ) ,CTRI < 99 ) , DO I W ( 366 ) , 

DMNT ( 366 ) , DMXT1366J, DPSc(366), DRGPMT366), DRHP ( 366,24) , 

DRSGP ( 3G6 ) , DPET ( 366 ) , 0RSFI366), 0SSFO66), =0LZS(3661, 

EMBFNXI 15,3) , EPGWS (L5,3) IFS ( 1 5 , 3 I , EMLZ S ( 1 5 , ' I , = -'S I A- ( 15,3), 

- EMUZC( 15,3) *EHUZS( 15,3) ,EPCM(12 l,FIRR( 15 I »KEDCY ( 12 ) , MEDwYI 1 2) , 
RICY( 37 ) , SATRK99), SERA(22), S ERR (22 I, SESF(22), SQER122), 
THSF ( 24 ) , TITLE! 18) ,TMRF ( 15, 3 ) , TPFS IL ( 12) , TM I F( 15,3 I * TMNFTI 12 ) , 
TMCF ( 15,3), TMPETl 12) ,TPP-FC( 15, 3) , TW»M( 12) , TMRTF ( 12), THSF! 15,3) 
TMSNE( 12) ,.TMSTF( 15,3) tTMSTFI ( 15 , 3 ) ,T20UPH ( 21 ) , T 20PRH ( 2 1 ) , 
UHFA(99) , TMRTF I (12) ,JULDAT(6T, ThSFD! 744,3 ),TFMAXY( 366), 

PEAKS ( 6 ) , PHRS (6 ) , WSPTS 1 6 ) , IHSFDM ( 6 ) - 

LOGICAL LSHFT 

INTEGER CDSDR, CN,CGN()PT, date, da y.dpy.ehsgd, hour, hrf.hrl, pday, 
PRO, RHPD, RHPH, RS3C, SGMC, S 5R r , SGRT 2, YEAR, YR1,YR2, PHRS, S INDEX 

INTEGER TOMARY,T SMARY, TOD ARY, TSDARY*T.OS ARY, TSSARY 
INTEGER dates, edate 

01 ME NS I GN RPLOTC (1832) ,RCOMMA ( 12087 ) 

EGUI VALENCE (DPY ,RPLOTC( 1 )),( CRFMI , RC0MMAI1) ) 

REAL IFPRC,IFRC,IFRL,IFS,LZC,LZRX,LZS,LZSR,MHSM,MNRD,MRNSM,NHPT 
MEDCY/ 0, 31,59,90,120,151,181,212,243,273,304,334/ 

MEDWY/304, 334, 365, 3 l, 59, 90, 120, 151, 181,212,243,273 / 

mxdrsf,mxdssf,mxmrsp,mxpssf,ssod 

SSQM, SSQDI » SSQMl ,VDRSF,VDSSF 


OAT A 
DATA 
REAL 
REAL 
REAL 


VMRSF , VMSSF.SDDRSF, SDDSSF, SDMRSF, SDMSSF , SHOD, SMMD, SMS QD , 
|MSQM 


REAL MDRSF ,MDSSF* MMRSF , MMSSF 
BACKSPACE l l 

♦*~RE AD TT 1 ) 

♦ (RPLGTC(I), 1=1, 1832) 


1 


i 


BACKSPACE | 18 


♦ REACT 18) 

♦ TR COMMA ( I ) * 1 = l f 12087 ) 


CONTINUE 

i ' I 


DATE = PD ATE 
DAY =DA T ES 
MDAY = PDAY 
IS INDEX =0 
MAXI =0 
AMRPM=0.0 
AMPREC =0.0 
AMBF =0.0 
AMSE =0.0 
AMSTF= 0. Q 

amrtf=q.o 


• ♦ * < 
... ♦ IF 

* DRY .EQ. 

* 366 

* . 

* . * 


T * 

♦ 


MED WY 151=366 


4- taR I TE C 6 f 3 ) 
♦ MSBDIC 


FORMAT 3 FORMAT (IHI tlX. ’NO PRECIP 

HOURLY CFS VALUES 1 » / / ♦ 1X» 4 A4 ) 


C BEGIN DAY LOOP 


I MONTH -MONTH 


I TOSF =0.0 


. * * . 

. ♦ IF * . T 

♦ MONTH. NE 

. . V 

? i * : 


GO TO 148 


. ♦ * . 

. ♦ IF * • T 

* MOAY.NE. ^ 

♦ 31 * 

♦ . . * 

t 1 * .... . - 


GO TO 14S 


. * IF * . T 

...» DATE. GT . ♦♦♦♦♦ 

*( MOD (DAY, MDAY) ) * 

♦ . 1 • ♦ 
i • * 


I MO NT H= M ON T H ♦ 1 


♦ ♦♦♦♦♦♦♦♦ + 


ORIGINAL PAGEJB 
OF POOR QUALTTY 


149 


CONTINUE 



. ♦ * . 

• ♦ IF * . T 

♦ HOUR .EQ 

•’ %. . * * 



. ♦ ♦ • 

. * IF ♦ * T 

* HOUR .EQ *♦++♦ 

♦ •21 ♦ 

♦ . . * 

F I * 



I PRH =0 
| AMPREC 


AMPREC = AMPREC+PRH 


• ♦ * . 
. ♦ IF 

♦ CONQPT ( 7 

♦) .EQ. I 

♦ . . 

tr 


t i 

♦ ; 

♦ C ENTER SNOWMELT SUBROUTINE 

♦ 

♦ I 

. ♦ ' • 

♦ • ♦ * • 

♦ . ♦ IF ♦ . 

♦ ♦ CONQPT (7 

♦ *) .EQ. 1 

♦ * • • * 

♦ * ♦ t * 

♦ F 1 

♦ ♦♦♦+♦♦+* 

♦ SPBFLW, XDNF S , FF 

♦ ~ SAX,SOFRF,OFRFlS 

♦ WT4AM,WT4PM, ASP-, 

♦ I 

♦ — 

155 + | AMRPM= AMRPM-rpRH 

♦ 

♦ [ _ 

156 ♦ T“5fr = 0.0~ 

♦ I ARHF =0.0 

♦ ““ —y 

♦ C 15 MINUTE ACCOUNTING 

;♦ 4 i + 

♦ ♦ DO LOOP TO I ♦ 

♦♦♦♦♦♦♦♦♦♦+ STMT # 187 + 


T 

* 


CALL SNOMEL ( BDDFSMtSPTW 
CC,SPM f ELD1F,0AY, 


SPBFLW, XONF S, FFORtPFSI , MRNSM , DSMGH , SDC PTH , S TMD , PXCSA, 
.r SAX,SOFRF,OFRFlS, SOFKF I , AMFS IL , PRH, SP TW , TANSM , SPL W , SFMD 
WT4AM , WT4PM , ASP- , ASMRG , S ASF X , S A« AX , OMXT, OMNT , R ICY , F I RR ) 

T" AMRPM= AMRPM-rpRH T 

7~tofr =0.0 ~ * - T * 

I ARHF =0.0 I 


HOUR, 
,OFRF , 


15 MINUTE ACCOUNTING ANO ROUTING LOOP 

i . i • :*' ; "- 


♦ . 
♦ . 
♦ • 
♦ 

♦ PRD = 1,4 


: : 1 

♦ . 

PEBI =0.0 

♦ . 

PPI =0.0 

♦ 

QFR =0.0 

♦ 

0FRIS=0.0 

♦ 

WI = C.O 

♦ r : 

WElF r * = 0.0 

♦i ! 

PMEUZ.S =0.0 


PMELZS =0.0 

*1 

PMEIFS =0.0 

♦ 

PMEUFS =0.0 

♦ 

PEP =0.25*P 

♦ — 
♦ 

i 


. 

♦ 

. * * . 

= •• ' .. 

, * IF 

♦; * "• 

CONQPT ( 2 


T 

♦ 


CALL PREPRD(RGPM, DRHP, D 
AY, HOUR, DPY, PRO, PEP, 


C C-48 






OPUS >GT 


NRTRI « G 


TRHF = 0.0 


IF 

RHFO .GT 


♦ ; C RAINFALL UPPER ZONE INTERACTION 


. ♦ IF 

♦ PEP .GE 

* VINTCR 


UZS =UZS+PEP*TPLR 
VINTCR -VINTCR-PEP 
PP1 =0.0 
PEBt *0.0 
PMEUZS = PEP 


OF. POOR QUALITY 










♦ 

160 t 
* 

♦ 

♦ 

♦ 

■ 4 . 

, . 

> 

♦ 

♦ 

V 4 - 

♦ 

♦ 

♦ 

4 

♦ 

. ■ ♦ 

♦ 

, ♦ 

♦ 

♦ 

♦ 

♦ 

■ • ♦ 

■ ■ ■ ■ ♦ 

♦ 

■ ♦ 
♦ 
♦ 

♦ 

♦ 

■ ♦ 
♦ 
♦ 
♦ 

: ♦ 

. ♦ 
♦ 

■ ' ♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

. ♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

161 ♦ 
♦ 
♦ 

, ♦ 
♦ 

♦ 

♦ 

■ir-v:*#: 

♦ 

♦ 

♦ 

♦ 

. «► 

♦ 

♦ 

♦ 


• * * . 

• ♦ IF * • T 

* PEBI .LE ♦ 

*• OFUS * 

♦ . . ♦ 

* • ♦ 

F | 


PFELZS = ( PtB l-W l ) * ( ( PEB I—OFUS ) 
c- /PEBI) 

PMEIFS **EIF'SM< PEBr-OFUS)/PEBI) 
PMECFS = PEaIM (PEBI-OFUS)/PEBI ) 


CONTINUE 


. ♦ ♦ . 

. * IF * . T 

* ( P E A I - *♦♦♦♦ 

♦OFUS) .GT. 0.0 , ♦ 

. ♦ • * 

♦ . * 

F I 


GO TO 162 


| EQD =(QFUS+PEAl )/Z.O 


1163 | 
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♦ 

r ♦ 

I ♦ 

^ i t 

162 ♦ 

♦ 

♦ 

♦ 

163 ♦ 

■■ ♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

V + 

■ ' ♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

' ♦ 

♦ 

* ♦ 

♦ 

♦ 

♦ 

♦ 

' ♦ 

♦ 

♦ 

♦ 

♦ 

... ♦ 

♦ 

♦ 

♦ 

. > 

164 > 

♦ 

♦ 

♦ 

♦ 

. ♦ , 

. . ' " ♦ ■ 

> 

♦ 

165 t 
♦ 

♦ 

. ♦ 
♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

' ♦ 
♦ 


) ECO -EQDFM ( P fc A 1 -0 F U S ) ** 0 • 6 ) 


. * * • 

.6 IF * . T EQO = 0,5* ( 

* (OFUS * *♦♦♦♦ 

♦PEA I ) .GT. (2.0* EQO* 

♦I ♦ 

♦ . . ♦ 

F ] 


• * * • 

• ♦ IF ♦ • T 

♦ { OFUS * 

♦ PEA I ) • L £ • 0.001 * 

♦ . . * 

M* 




OFR =0.25*OFRF*I ( IOFUS+PE A U *0. 5 > 
**1.67 >*(( 1.0*0. 6*<( OFUS 

* PEAT 1/(2. 0*E0D J >**3.0 > **l .671 


. * IF * . T OFR = 0.75*PEAI 

OFR .GT. *+♦++ 

|0.75*PEAIJ * 

* . * _ 

F I ‘ ♦ 

I ■*♦♦♦*♦**+**+*♦♦♦+♦*++* ♦*♦♦**♦* 


• * * • ' 

. ♦ IF * . T 

FIMP .EQ ♦ ♦♦♦♦ 

0.0 * 

♦ . . * 

t] ' 


GO TO 168 


| PEIS =PP I *0F US I S 


.• * * . 

. ♦ IF * • J 

* -.(PEIS - *♦♦♦♦ 

*OFl)S I S ) .GT. 0.0 * 

* . . * 

n • 


GO TO ,166 


.1 EQO IS* ( OFUS 1 S>PE I S )/2. 0 


1167 | 


♦ 

166 ♦ 
♦ 
♦ 

■ ♦ 


! EQO 1 5- E Q OF 1 S * ( { PEI S^OF^T$ I **0 *6 1 

r : 
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4; 
4 
4 
♦ 

; • : «f 

♦ 

4 

4 

, '4 

f 

• i 

. 4 
. 4 

: 4 

4 

' 4 

■"■•4 

■ ■ v.4- 

4 

4 

4 

4 

4 

4 

4 

■■■■♦, 

4 ■ 
4 
4 
4 
.4 

* 4 
4 
4 
4 

• 4 • 

4 

168 4 

4 

4 

' 4 

■ 4 . 

4 
4 
4 
4 
4 
4 
4 
4 
4 : 

• .4 : ! 
4 
4 ! 
4 
4 

• 4 

4 
4 
4 

169 4 
4 


E QU l S - 0 • 5 ♦ C OF USES 4 P 
El SI 


. * * . 

• * IF * . T 

♦ (OF US l S 4444 4 

44 PEIS) « G T (2.0*E* 

4QOIS) ♦ 

1 ■ r ; - • * . 

♦ . 4 — 

FI 4 

I 44 44 4444 4 4444 444 444444 ♦♦♦♦4444 


.4 4 , 

• 4 I F 4 , 

4 (ofusis 

44 PEIS) .LE. 0.01 

* . . * 

* . * 

F 


T 

4 ♦44 4 

* 


GO TO 168 


OFRIS = 0.23*O FRFI S-4 ( ( ( OFUS I S+PG IS ) 

♦0.5)** 1.67 )*( < 1.0+0. 64 (( 

OFUS l S 4 PE I Si/e 2 .04EODFTSI )443.0) 441.67) 


♦ . 


♦ . T 

♦ 444 ♦ 

4 . 

♦ 


OF BIS = PEIS 


+ * 4 . 

4 IF 

GFRIS .G 

PEIS 

•4 # ^ • 

F | ™ ♦ 

] 4 444 444 44 4444 444444444 44 444444 


TOFR =T0FRfFPER*QFR4PlRP40FRIS 
♦ PP I 4FV«TR 

OFUSIS = PE I S-OFR l S 
OFUS = PE A l-OFR 


♦ ; 
♦ . 


. ♦ * . 

. * IF ♦ 

OFUS .GE 

O.GOl 

* . . * 
* . ♦ 

F 


T 

*4444 

■ 4 ■ ■ 


GO TO 169- 


ILZS =LZS40FUS 
ICFUS =0.0 
; CFR.I S = QFRTS4 CFUS l S 
OFUSIS =0.0 


I 


j LZRX =l.54ABS(LZS/LZC- 1.0)41.0 


♦*. 

4 

♦ 

4 

4 

f 

♦ 

♦ 

♦ 

♦ 

* 

♦ 

♦ 


FHR -s|l.O/( 1.04LZRX) )-*#LZRX 

i " ~ - 

♦ . I 

FHR = 1.0 - FHR* ( L ZS/tZ 


.* * 

. ♦ IF 

* LZS .LT. 

♦ LZC 

♦ . 

4.4 

F 


T 

♦ 4444 

* 


CT 


4 4 44 4 4444 4 4444 4444444 4 44 44444 4 


i V 


4 

PLZS 

=FMR*(PEB I - W 1 ) 

♦ . 

PCM 

=(l.0-FMR)4(PEB 

4 


— SUBMF i ♦ fpek 

♦ 

GWS 

=GWS4P0W 

4 

BFNX 

=BFNX4PGW 


LZS 

*LZS4PLZS 

♦ 

IF S 

*lFS4Wfc!FS4FPER 

4 


t 




C-53 



) zFPeRfrCFfUPPI ♦FWTR+FIMP 

♦GFRIS+SPIF 

UHFA(l) 


♦ C ROUTING 


IF 

CONOR TIL 


| URHF -URHF>0 • 25*UHF A { 1 ) 


I UHFAU) =URHF 


CONOPTIL 


| URHF =UHFA(KTRI) 


URHF 


1 ! ( ) 


♦ 

175 ♦ 
♦ 

• ♦ 
4 
4 
♦ 
♦ 
4 

*♦ . 

4 
♦ : 
♦ 

: • 

4 

" ■ ■ 4>t 

. ♦( 

4i 

: , 4! 

■ 4 

4 

f 

• . j- . 4 

•It . 4 

l-.: • : 

176 ♦ 

4 

4 

177 4 

4 

4 

4 

'-4' 

. 4 • 

4 

4 

4 

4 

4 

4 

' . ' 4 . 

178 4 

4 

4 

4 

• 4 1 

4 ; 

4 

4 

4 

4 

4 

4 

4, : 

♦I 

I 

T 

4 

4 

4 

. 

4 

179 4 
4 
4 
4 
4 
4 
4 
♦ 
4 

: : 4'' 

4- 

4 

4 

4 

•••4:.'! 

4 
4 
. 4 


1 TftHF - TR H F 4 U R H F * C TR I ( K TR IT 


• * ♦ • 

j . ♦ IF * . T 

4 CONGPT ( l ♦+f44 

♦3 1 .EC. 1 .AND. LSH* 

;*FT .AND. KTR I . GE. * 

♦ . • * 

* . ♦ 


F } 

144444444444 

: *SATk l ( KTR1 - I 



44444444444444444444 

I) 


UHf A(KfRI . 4 1) = URHF 
Il77 T 


UFFATKTR 1 1 11' =“0.0“ “ 


| KTRl = KTR I—l 


; . • * ; * . ^ . • 

• * IF * ♦ 7 

♦ KTR I .GE 44444 

1 * 

♦ . « • * 

* . ♦ 


GO TO 174 


II--. 


— * 4- — 

! . * IF ♦ . T 

* URHF .LE 44444 

*. 0.0 * 

* . . ♦ 

- * 


GO TO L79 


| NRTRI=NCTRI 


‘ -T? 

. ♦ IF ♦ . T NRT RI l * MXTRI 

* CONOPTU *4444 

*31 .EO. 1 ♦ 

* . . * _ _ 

F | * r 

144 44 4 4 4444444 4 44444 444 4444444 4 


NRTR!=NRTRI-i 
UHFA(l) =0.0 


. ♦ * . 

* * IF * . T 

* CONOPTU *4444 

*31 .NE. I ♦ 

* • . * 

* .. * 


GO TO 180 


| NNSTRl =NCSTRI ♦ L 
I UHFAINNSTRI ) =0.0 


- C-55 







*# #* 


SRX * CSRX 


„ • IP * . T 

SRX .LE. ♦♦«-+♦! 

CSRX * 

♦ • • * 

* . ♦ — * 

F I ♦ 

I ♦♦♦++♦♦♦ + 4 .♦♦♦+♦ + ♦+♦*♦> ♦♦♦♦♦♦♦♦ 


RHFL =TRHF-SRX*(TRHF-RHFO) 
RHFO = RHF1 


. * ♦ . 

* ♦ IF * . T 

RHFO .IT *++4+ 

• RHFKC * 

♦ . . ♦ 

♦ . * 

F I ♦ 



I TFCFSMA.O^RHFl+CfiF-HSE) *WCFS 

r 


. * * . 

. * IF * . T 

* CONOPT ( L ♦♦♦♦4 

♦31 #NE* l ♦ 

♦ * . ♦ 

♦ . ♦ 

F 


GO TO 102 


. * * . 

. * IF ♦ . T 

♦ CONOPT ( L *♦♦♦♦ 

♦2) .EQ. I • AND • PRO* 

♦ .NE. 4 ♦ 

♦ • . ♦ 

t I * 


GO TO 182 


CALL RTVARY < CTR I .SATR I , 8TR I . CHC AP , NBTR t , MXTR I . NCSTR 1 . EXQPV , LSHFT . 
TFCFS) | 


I DATE -MODI DAY oMDAY) 


I 


* 

* 


T 

*♦♦♦♦ 


WRITE! 6f 6 ) DATE. HOUR • PR 
Of NCS TR l 


. ♦ * 

. ♦ IF 

LSHFT 

♦ • 

♦ . * 

F J * 

| ♦+++++++♦ *+++♦+++++ 

FORMAT 6 FORMAT12X. I2.2X. I2.2Xy!2t 
8HELEMENT5) 2X.2QHH ISTQGRAM CHANGES TO. IX. 12. IXt 


CONTINUE 


I 


. ♦ ♦ . 

. ♦ IF ♦ 

TFCFS .L 
E. 0.5*CHCAP 

♦ . . * 


T 

♦♦♦♦♦ 

* 


MV 

| +♦+*+>+ 


SRX - CSRX 


f ♦ ♦♦♦f ♦♦ t ♦ ♦ f ♦♦ F if ♦ f f f 


i;.: 


]{■: I 


I I lf 


« * * . 

. IF * . T 

* ITFCFS . ♦ ♦♦♦♦ 

*GT. 0 . 5 *CHCAP) .AND* 

*. ( f FCF S .LT. 2 . 0 *C* 

* . . * 

' F I 


SKX a CSRX 


F I ♦ 

♦ CFSRX y CSRX ) * l ( TFCFS - 0 . 5 *CHCAP)/I l.i>*CHCAPI 1**3 


• ^ ^ « 

V * IP * . T * SRX * FSRX 

*! TFCFS .G *+f+f 

♦T. 2-0*CHCAP ♦ 

♦ • . ♦ 

— — 

F I t 

I f *>++>* +* ; * + + +**+ ++ + ****>+++* 4 ^ 


♦ 

♦ 

•• ♦ 

♦ 

♦ 

♦ . 

♦ 

♦ .. : 

♦ 

♦ 

■ 4 I 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

■ > ; 

♦ ; 

♦ 

♦ 

♦ 

♦ 

« ♦ 

♦ 

♦ : 

103 ♦ 

♦ 

♦ 

♦ 

♦ C 

♦ 

. ♦ 


• * * . -■ 

• * IF * . T 

♦! TFCFS /L - 

♦E. TFMAX ♦ - 

... #.... . m • ^ 

i'-.r * . ♦ 

FI 


GO TO 183 


1 PROF = PRD 
I TDFR 24 -HOUR 


. ♦ IF * • T TOP P 24 = (TDFP 24 - l.O) 

♦ PRO «LE* *++++ ♦ O.V 5 *PRDF 

* 3 * 

* • • ♦ 

* f * »™ 

s F | : 


I TFMAX=TFCFS_ 

J ARHF = ARHFfRHF 1 

^‘TvTS’ 

STCRM OUTPUT REQUESTED BY CONOPTU) 

1 — 


184 ♦ 

• 

♦ ! 


♦ 

• ♦ IF 

♦ i 

♦ CONOPTCl 


♦1 • NE • 1 

♦ 1 

^ • • 

♦ I 



i ^ F | 

♦ ] 


i • • 


.r 

• 

♦ f. 

. ♦ * . 

♦ ! 

i . • if 


,♦ DAY • NE. 

♦! 

♦ COSOR 

♦ : 

l • * : • • 

♦ j 

* . ♦ 

• - ♦ i 

• ' j' : . . f F | 

♦ | 

i •. \ . 


; . ■ 1 

■ ■- -*1 : • 

•• i ' : 1 ’ • 

♦ i 

. * * . 

♦ 

VK * IF 

' ♦' 

!♦ HOUR .EQ 

♦I 

1 *AND# PRQ 

♦ 

♦ 1 

♦ 

*: . V- . . •. 


• • ♦ 

♦ 

FI 

♦ ; 



:♦*** 


GO TO 186 


♦ . T 

* 


GO TO 186 


* 4-4 + 4 
* 

* 


WR 1 TE ( 6 » 7 ) 


L) 


I FORMAT 7 FORMAT! lH//t 2lXfl9HRMNF AU 

| ’ DEPOSIT ION, L2Xt I6HM0!STtlPfc STORMVC, 

! |4X, 17HSTREAMFL0W ORIGIN, 6X, 14HSTREAM 0UTFL0W/2Xt l I6H0Y HR PD RA 

IN fcUZS ELZS EIFS EUF5 UZS US IKS OF S S 

PDF SP IF SPBF SPTF INCHES CFSI 


l" DATE =MOD(OAY,MD4Y( l 


_ • . 

OFS -OFUS*FPER*nfUSIS*F!MP 

SPCF = OFR^FP ER+OFR l S *F I MP4-P P I * FW T R 

SPBF =0.25* ( CBF-HSfc ) 

SPTF = SPDR + S PRF 
SPOR =0.0 

. 

■ ■ . i 4 

• * 

RHFO 

• 0.0 

" 

* . 

IF * . T 

• LE 

* 

. * 

TFCFS = CCBf 
S 

- F 

♦ 

♦ 4* 4>4* f4-4-4- ♦ 

| RSPTF-=0. 

* 25*T FCFS/WCFS 

1 


- HS E |*WCF 


♦ WRITE! 6,8) ♦ 

♦ DATE, HOUR , PRD * PEP , PM6UZS t PMELZS ,PME1 FS *PMEOFS , U+ 
♦ZSfLZS t 

♦ ' i. ■ ♦ 


ttFSfCFS ,SPCF, SP IP, SPBFf SPtFf RSPTF , TFCFS 

S ; ■ ■ FORMAT 8 FORMAT ( 2 X, 12, IX, 

FT, n ■ II, 5! 1X,F6.4),?X,4( F7.4) , 2Xt 51 iX,r6.4» • IX, 


• A* ^ • 

. * IF * . T 

* HOUR « EQ 

*. 24 « AND, PRD , EQ.* 

* 4 ^ 

♦ . . * 

* . * 

M 


GO TO 189- 


1166_| 

T NDSDP^NDSDP^t 


• * ^ • 

• ♦ IF * 

* NOSDR • E 
♦Q. NDSDP 

: - - . . ♦ 

U* 


T 

***** 

* 


GO TO 186 


(CALL DAYNXT(CDSOR,OPYJ 
CONTINUE 


. . • * * • 

♦ IF * . T 


* VINTCR . 

♦LT. 0,25*V INTMR 
♦ . • < 
♦ . * 

F ! 


OAY)/96.0 


VINTCR = VINTCR ♦ OPETC 


l ++♦♦♦♦♦ ♦+♦♦++♦♦+ + *:♦»*>♦ + 


OFdGINAi; PAGE fi 
OP POOR QUALEPy 
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■ 1 : 

!• ♦ 

19 i t 

• ♦ : 

. ♦, 

193 ♦ 

••■v . ♦ 

7 : 

!:• : 

v : ♦ 

'X't 

■ \l ^ ♦ 

♦ 

♦ 

n 

m 

♦ 

♦ 

♦ 

' 4 • 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

/ : 4 

♦ 

* ♦ 

♦ 

* ' 47 

♦ 

:♦ 

♦ 

♦ 

♦ 

195 ♦ 

♦ 

♦ 

♦ 

: $ 

- v ♦ 

-i ! 

t 

196 t 
♦ . 

T-- ♦ 

1 4 

J t 

: 

197 f 

'4 ■ 

• .4 
• : ♦ 

: • 4 

:- 77 : 7 v 4 - 
..■4 
'."7 4 ■ 

. 4 • 


| T200FHC1) -TQFft 


.4 IF * • T 

♦ PRH *LE . 

4 0.0 * 

I 4 . . * 

? FI 



| KT2C =20 


• 4 4 . 

s . ♦ IF * . T 

4 KT20 .LT 

.*■ * 

1 * ■ f i * 


GO TO 196 


i. • ♦ * « 

I • ♦ IF 

4 ; PRH .GT. 

T20PRHIKT20) 

* . 

■77,71 * 


* . T 

*♦♦♦♦ 

* 

* 


GO TO 195 


T20PRHIKT20 ♦ U = PRH 
Tl 97 ~ T 


T20PRH(KT20+H = T20PRH ( KT20) 


I KT20 “KT20-1 


. |19A I 


| T20PRH ( 1 ) =PRH 
_ _ 

ADDING GROUNDWATER ELCW 

I 


CeF =GWS*JFRL*< l.O«-BFNRL*BFNX) 
GWS = GV*S-CBF 
AMBF =AMBF+C BF 
THGR =ARHF*CBF 


. * * . 

• ♦ IF * . T 

• HSE .GT. *♦♦♦♦ 

* THGR * 

| ♦ • ' T . * ' 

: : * . * ■ - 


HSE = THGR 


♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 




» 


( ) 


: - * ■ 

4 

4 

4 

4 

♦ 

♦ 

' 4 
' : , f 

4- 

'' 4 

♦ 

4 

' : '■ 4 

■ 4 

♦ 

♦ 

♦ 

4 

♦ 

♦ 

306 r 

> 

♦ 

4 

'■ .4 

♦ 

4 

4 

♦ 

♦ 

4 

4 

■ _ 4 

- 4 
♦ 

. .+ ■ 

* 

... * 4 . 

■ 4 
4 

4. 

4* 

4 

4 

4 

4* 

• ' 4 

' 4* 

♦ 

; ' 4 

. 4-'.' 

■ . 4 

. 4 
4 

. ' 4 ■ 

" 4 
4 
4 

’ 4 

• -,4 

4 

4 

4 

. .* 4 

4 
4 
4 
4 
4 
4 
’ 4 
4 
4 
% 4 
4 

• 4 
4 
4 


AMSE =AMS£4HSE 

THSF ( HOUR ) = (THGK-HSE)*WCfS 

TDSF = fl) S F >T H S F ( HOUR I 


C STORE SIMULATED HOURLY STREAM FLOWS 

C draining OF UPPER ZONE STORAGE 

: i 'i : I ' 


TSINDEX =S JNOEX + 1 • 

1 

1 

• -j <■ 

THSF D ( S INDEX , 2 ) =THS F « HOUR ) 


. | UZINFX = ( tZS/UZC J-(LZS/LZCI j 1 


• * * « 
• * IF 

*• UZINFX . 

♦LE* 0.0 
4 • 

♦ . * 

F I 


T 

♦ 4444 

4 



LZSK -LZS/LZC 

UZINLZ =0.Q03*BMIR*UZC*UZINFX* 

♦ 3.0 


* - 

. * IF 

* UZINLZ . 
*GT# UZS 
♦ . 

• tr 


4 


UZINLZ ^ UZS 


UZS = UZS-UZ I NLZ 

LZRX = L • 5 4 A B S ( L Z S R- l • 0 ) 4 1 • 0 

FMR -( 1.0/ ( 1 .0+LZRX)l**LZRX 


• * IF 

•4 h tzs .LT. 
4 | LZC 

4.4 


T 

44444 

♦ 


= 1.0 - FMR*LZSR 


PGW = ( 1.0-FMR)4UZINLZ4( 1.0-SUBWF) 
*FPER 

PLZS -FMR4UZ I NLZ 
LZS =LZ 5 + PL Z S 
GWS =GW S + PG W 
BFNX ^BFNX+PGW 


C 4 PM ADJUSTMENTS OF VARIOUS VALUES 


C-61 


'J 

P 



* 


: V; 




198 t 

4 

4 

' . . 4 ■ 

♦ 

v 4 

... ^ 

• f 

4 

■ . 4 

4 

: 4 

4 
4 
4 
4 
4 
4 

t 

4 

4 

.. . 4 

t 

4 

4 

' - v 4 

4 

4 

' :4 

. 4 
' 4 

4 

; l 

■■■ 4 

: 

t 
; t 

^ 4 


I 


. * ♦ . 

• ♦ IF * 

♦ HOUR .NE 

*. 16 

* ..-■■■ • * 

♦ . * 

F 


T 

*4444 

♦ 


GO TO 202 


I AEX90=0.9*(AEX904PET ) 

| AEX96=0.96*( AEX964PCT ) 

- 

C INF IL TRAT I CM CORRECTICN 



I SIAM =( AEX96/AETX)**SIAC 

- 

• * # * . 

. * IF * . T 

* SIAM .LT *444+| 

0.33 * 

* . • * 

* • * 

F | 4 

444444444444444444444444444444 


4 

' 4 . 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

: 4 

-4 ■' 
4 
4 


SIAM ^ 0.33 


I BFNX =0.97*BFNX 


. ♦ 

* 

* c.o 
♦ . 


IF* * 

PET • EQ . 


* i T 

*4444 
* 

. * 


GO TO 202 


4 

4 

4 

4 . . 

4 C 

4 

4, 

M* 

EVAP-TRANS LOSS 
1 

FRCM 

GROUNDWATER 

4 

1 GMET =GWS*GWETF*PET*FPER 1 

4 

GWS - GWS-G WET 

...... 


4 ■ 

1 BFNX =BFNX-GWET 


1 

4 

1 




.4 ' . 

± ’ 

' 1 ■ 




:4 

. * # * . 




4 

. * IF 

* . 

T 

BFNX = 0.0 | 

4 

* BFNX .LT 


*4444 


4 

*. 0.0 


* 


4 

* . . 

* 



4 

♦ . * 




4 

F I 



4 


| 444444444444444444444444444444 

T AMPET=AMPET4PET I 

F" 


• * ♦ , 
• * IF 

PET .GE. 

UZS 

♦ . 

* • * 

F 


T 

*444 4 
* 


GO TO 199 


UZS =UZS-PET 
AMNET=AMNbT 4 PET 


mim&u page ib 

OF POOR QUALITY 
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f 


t 





)' 


♦ 

4 
f 
f 
♦ 

4 
4 
♦ 

♦ 

♦ ; 

199 4 

■ ' 4 ; 

♦ 

4 ... 

■ 4 ' 

♦ 

4 ' 

♦ 

4 
4 
♦ 

4 

♦ : 

4 
4 
4 
4 
4 
4 
4 
4 i 
4 . 

4 i 
. , 4T- 

■ ’ 4. ; 

4 
4 . 

4- • 

' 4 

^ 1 4 

200 4 
4 

' ' ' . 4 ; - 

201 4 
4 

4 

4 

4 

202 44444444CCNT INUE 


1202 | 


I 


PET =PET-UZ S 
AMNET=AMNET4UZS 
UZS =0.0 
LZSR =LZS/LZC 


. * IF 

* PET .GE. 

♦ ETLF*LZSR 

* • 

♦ . ♦ 

F 


GO TO 200 


1:1- •• 

*4444 

4 


I SET = PET * U « O-PET/ <2. 0*ETLF*LZ$R H I 


1201 I 


I 


[SET = 0.5*ETLF*L-ZSR 


LZS =1 ZS-SET 
AMNET=AMNET4SET 


I 


203 


C END OF HOUR LOOP 

^ [ 

- T DSSF(DAY) -TDSF/24.0 

“ 

• •l. .:-?!• ^ . * ‘‘7 

. * IF * . T 

♦ CONOPT ( I *4444 

- *1) «EQ. I ♦ 

* . . * 

„ . * « * 

F 1 4 

14444 44444 4444 4 44444 4444444444 4 


AMRTF=AMRTF40RSF( CAY I 
AMSTF=AKSTF4DSSF(CAY) 


DSSF(DAY) = DSSF(OAY) 4 
00 1 W (DAY ) 


. * * • 
. * IF 
* CONOPT ( 6 

*) • EQ. I 
* . 

* . * 

F 


T 

*4444 

* 


EDLZS ( DAY) = LZS 


STORE ERRORS ANO FLOW DURATION 



C-63 



• ^ * * 

• ♦ IF * 

* CONOPT (A 

* I «NE. 1 

* . . * 

F 


T ■= 

* 



| ERR =DSSF ( DAY )-QRSF ( DAY ) 


T 

* 


. * IF 

* CRSF ( DAY 

♦ I •LT# 1.0 



a * ^ « 

. ♦ IF 

* DRSF (DAY 

♦I .GT. 1.0 

* « • 

, ?!* 


T 

♦ 



CRFMI (KRFMI ) -CRFMI (KRFMI 1+1.0 
SERR( KRFM I ) =SERR ( KR FMI )>ERR 
SERA (KRFMI ) =S ER A (KRFMI ) +A6 S ( ERR ) 
SQER 1KKFM I > -SO.ER (KRFMI )+ERR*EKR 
SESFlKRFMi) =0.0 


• * * . 
• * IF 

♦ CRFMI (KR 

♦FMI ) .GT. 1.0 
* . 

* . * 

F I 


♦ . T 

♦ 

♦ 


SbS F ( KRFMI ) = SQRTl ABS t 
(SQER (KRFMI) - 


SERR( KRFM I)**2/CRFMt (KRFMI ) )/ (CRFMI (KRFMI) 
CONTINUE . 


| DATE = C A Y 


. ♦ * . 

. * IF * . T 

♦ (MONTH. E 

•Q.AI.AND.IMCAY.EQ.3* 

♦n ♦ 

* . . ♦ 

F I 

I ++++4 : 444+44+4<< 


DATE=MOD (D AY f MDAY ) 


- • ^ • 

. ♦ IF ♦ . T 

♦ MONTH. NE *♦++♦ 

♦ .A .* 

* • . ♦ 

' tr 



♦ MUTE(6«9) 

♦ OATEt (THSF(HCUR) ,H0UR=i*I2) 


’C-64 


FORMAT ‘ 9 FORM A T ;( 1 H / » 1 X/ , 1 X » 1 4 V 2 X« 

I 2HAM,tX,6F8.1,3X,6F8.l> 

: — — ■ — — • - — ♦ 

WRITE (6.101 ♦ 

♦ MHSF( HOUR 1 , HCUR= 13* 24 ) • QSSF(OAY) ♦ 

♦ 


205 


■'■-V | 

• ♦ * 

. ♦ IF 

* TDFP24 « 
♦LT • 12.0 
9 V 

F 


T 

*♦>♦4- 

9 


FORMAT 



T~ — ^ ***“““*“ — — - 
GO TO 205 


10 FORMAT (lHJ f 6X,2HPM, IX, 
6F8.l,3X, 7F8.1) 


| TDFP12 = TDFP 24-12.0 
- 

' 4HP.M. ) 

T206 T 

CONTINUE 
. 4HA.M.) 


FORMAT LI FORMAT ( 1H/ , I OX . 8HMAX I MUM* 
fF8*L« 2X.6HC.F. S , , 5X , 4 HT I M t * 3 X ,F 5 . 2. 2 X , 


FORMAT 12 FORM AT ( 1H/ t 1 CX . 8HKAXI MU*= 
- ,tF8. 1,2X,6H:.F.S..5 X , 4HT I ME , 3 X , F 5. 2 , 2X , 


206 



♦ * * • 

. * IF * . T 

* C0N0PT17 ♦+♦♦+! 

*» .EQ. I .AND. SDEP* 

*TH .GT. 0.0 * 

* . . * 

* . * . - 

F I ♦ 

I + 

SCE PTH* STMD . SA X . T ANSM* SPLW FORMAT 13 FORMAT < 3X, 14 , 2X, 7HSDEP TH= 

»F8.2t2X v 5H$TM->= ,F6.2,2X,4HSAX=,F6.2* 
2X,6HTANSM=,P6.2* 2X,5HSPLW=,F6.2) 


* !lf XI _^ ;,1 * XI * 1 _ 

*1 

C monthly summary storage 


I 


STMROSIMAXI ,2) =OSSF(DAY> 


TMSTFI MAXI ,2 
AMST F = 0 . 0 
T HRTF { MONTH ) 
AMRTF=0.0 ___ 
_____ 


EMBFNX(MAXI,2)=BFNX 
Hi'.PREC ( M AX I *2)=AMPR£C 


AMPREC =0.0 

T MRPM ( MONTH i = AMRPM 

AMRPM=3.C 

TMBFtMAXI ,21 = AM8F 
AMBF =0.0 

TRI F (MAXI , 2 1 = AM I F 
AH1F =0.0 

TMSECMAXI ,21 = AMSE 
AMSE = D. 0 

TMPET(MONTH) =AMPET 
AMPET=D. 0 

TMNET I MONTH) = AMNET 
AMNET* 0. 0 

TMSNE( MONTH) = AMSNE 
AMSNE=0. 0 


) =AMSTF 
= AMRTF 


- ♦ • AU- .,.y V- . A. - ..*. . 


.:c-65 


220 


3001 



TMFSIKMCNTH) = ‘AMFSIL 

J, ] 

I 'amfsTl"o.o" 

EMGWS ( MAX I » 2 ) =G*S 
UZC = SUZOAFX90»BUZC*EXJ*I-2.7 
♦LZS/IZC) 


UZC = 0.25 


. * IF * . T , 

* UZC .CT. 

* 0.25 x * 

* . . * 

* * — 

F 1 ♦ 

1 


I EMUZC ( MAX 1 .2 ) =UZC 

T ~T~ 

7: ImUZsTmAXI ,2 J =UZS 

7 ' 

EMSIAM(MAXI»2I=$IAM 

I 


EMLZStMAXI ,2) =LZS 
EM I F S ( MAXI f 2 ) = IFS 


CONTINUE 

.'•♦*♦• 

. ♦ IF * . T 

* MOAY.EQ. ♦ ♦♦♦♦ 

♦ 337 * 

* . • * 

♦ . * 

F 


MDAY=59 


I 

)♦+ ♦♦♦♦♦♦ + 


• 7: JL 


C STORE MAXIMUM DAI LY STREAM FLOW FOR YEAR 

T TFMAXY(MAXI) =tfmax 
~~~~ - —————— 

: CONTINUE ( 

... . ♦ # ♦ . 

. * IF * • T 

«v. ♦ DAY. EG. E ♦ ♦♦♦♦ 

♦DATE ♦ 

* • • * 

. .. - * i * = ^ 



CALL DAYNXT(DAYfDPY) 


. • ♦ ♦ . 

. ♦ IF * . T 

♦ DAY.GT.L ♦♦♦♦♦ 

♦DAY ♦ 

♦ . . ♦ 

♦ » ♦ 


MDAY=LDAY 


P I 

I ♦♦♦♦+♦ 







SUBROUT INE FQRCST(PDAY, DATES, MONTH. ED ATE, HSHO 1C, PDATE ,LD AY, HP DAY > 

COHPGN/ PLOTC/DRSF* OS SP, CONOP T • THSFOtTMS TF , STMROSI 12 1,6) , OPY, TITLE, 
KFLAG, I DFLAG, 

lENOFC, STUDY (2 ) .PEAKS , PHRS, NSPTS , THSFDM, TPMAXO , TMRTF , JPLOI , 

NCTR l , CTR l » F l RR.R I CY , DPSfc » BDDF SM, SPBFLW , SPTWCC, SPM, ELIM F, 

XDNFS. FFUP , FFSl »MRNSM» DSMGH ,PXCSA»RMPF,RGPMB» AREA, F IMP, 

SATRI ,UHFA, • 

MNHD 



CCMMCN/COMMA/EMBFNX.EMGWS.EMIFS, eml zs , e ms t am., e muzc , emuz S , TM8F , 

TP I F , 1 MPREC , TMSE » CRFM1 , 1>C IW , DMNT , DMX T , DUG PH, DR HP , DRSGP, OP5T, EDLZS , 
EPCP , SERA, SPRR » S ESP , SOER, THSF » TMFS IL,TMNET , TMOF ,TMPET«TMR PM, TMSNE* 
. TMSTF I , T200FH, T20PRH, TMRTF I , JOl 0 AT , . 

TFNAXY.UZC, AET X , DAY , NSGRD, AE XOQ , S I AM, NDSDP ,RGPM, NDSDR ,VRL , 
i TRHF , 

SINDEX, INDEX, AEX96, MAXI, YR2,8YLZS,BYIFS,BYUZS 
C KENTUCKY WATERSHED MODEL (VERSION OF JUNE 6, 19701 


BASED ON STANFORD WATERSHED MODELS III t IV 


DIMENSION BTRH99),C0N0PTU6) ,CRFM1(22) ,CTRI < 99 ) ,00 1 W ( ?66 ) , 

DMNT ( 36b ) , DMXT ( 166 ) , DPSE! 36.61., DRGPM(366>, ORHP ( 366 , 24) , 

DRSGPI 366), DPET ( 3o6 ) , DPSPI366) , DSSF ( 366 ) , EDLZS1366), 

EMBFNXt 15,31. tPGWS (15,3) ,EMIFS( 15, 3) ,MLZS< 15,3) .EMSIAM1 16,3jl, 
EMUZC( 15,3) ,EMUZS< 1 5, 3 ) , EPCM ( 12 > ,F IRR1 15) , MEOCY t 121. MEOWY ( 1 2 1 ) , 

R I CY ( 37 ) , SATR l ( 99 ) » SERA (2 21, SERR122), SESFI22). S0GR(22), 
THSFt 2A) .TITLE ( 18) , TMBF (15,3 > ,TMF STL ( 1.2) , TM IF ( 15,3 I , T 9N E T ( 1 2 ) ? 
TMOF ( 15,3) ,TMPET( 12) .TMPRFCl 15,3) ,TMKPM( 12) , TMKTF (12), TMSE 1 15,3) , 
TMSNEt 12) .TMSTFt 15,3), TMSTFI (15,3 ) ,T20urH (211 , T20PRHI21 ) , 

LlHF A I 99 ) , TMRTF I ( 12 ) , JULDAT ( 6 ) , THSFDt 74<t, 3 ) , T FMAXY ( 366 ) , 

PEAKS ( 6 ) , PhRS l£> ) ,NSPTS( 6) , THSFDP( 6 ) _ 

LOGICAL LSHFT ~ ' . 

INTEGER CDSDR ,CN, CONOP T, DATE, DA Y, DP Y.EHSGD, HOUR, HRF.HRL, PDAY, 

PRD, RHPD, RHPH, RSBO, SGMO, SORT, S GRT2, YEAR, VR1,YK2, PHRS, S I NDEX 

INTEGER TOMARY, TSMARY , T OOARY , TSUAR Y , TOS ARY ,TSS ARY 

INTEGER DATES , ED ATE , S INOET, MPDAY ( 15) , 7 .. ...... 

OIMENSICN RPLOTCI1832) .RCOMMAI 120B7.) ...... . . . . 

EQUIVALENCE IDPY.RPLOTCl 1) ) , (CRFM1 , RCOMMAI 1) ) ; 

REAL IFPRC, IFRC.IFRL, IFS, LZC , LZRX, LZS, LZSR, MHSM.MNRD, HRNSM, NHPT 
MEDCY/ 0, 31, 59, 90, 120, 151, 181, 212,263, 273, 304,334/ 

MEDWY/304, 334, 365, 31, 59, 90, 120, 151, 1 81, 2 12, 243, 273 / 

MXORSF,MXDSSF,MXMRSF , MXMSSF.SSQD 
SSQM.SSQDl «SSQMI ,VORSF,VDSSF 


DATA 

DATA 

REAL 

REAL 

REAL 


VMRSF, VMSSF, SDDRSF, SDDSSF, SDMRSF , SDMSSF , SMDD, SMMD, SMSQD, 
SMSQM 


; REAL MDRSF,MDSSF,MMRSF,MMSSF 
! BACKSPACE 11 

I 

♦ READ 7 111) 

* ( R PLOTC ( 1 ) , 1= 1 , 1832) 




♦ 

♦' 

♦ ' 

♦ 







CONTINUE 


PET *EPCM( IMONTH)*DPET(OAYI 

PETU =PET 

TFMAX=0.0 


C EV;APQTRANSP IRATI CN ADJUSTMENTS 

I 

L?i; • * * * . 

. * IP * . T 

* CONOPT ( 7 *♦♦♦♦ 

♦ I .NE. 1 •* 

* . . * 

F I * 



. * * . 

* * IF ♦ . r PET = 0.0 

* OMXT ( DAY . ***** 

•I - 4.0*ELDIF .LT. ♦ ’ 

*40.0 * . . • 

■* * . . * * * 

4 F | ♦ 


. * IF ♦ • T PET - FFGR*PET 

* SPTU .GT *«•♦♦♦ 

*• SPTWCC ♦ 

* . . * _______ 

F | ♦ 


C CALCULATION OF SNCW EVAPORATION 


. ♦ * . 

• * IF * . T 

* CMNT ( DAY ♦♦♦♦♦ 

♦) •GT . 32.0 .OR. SP* 

♦TW .LL. OP SE ( D AY ) ♦ 

♦ . • ♦ 

♦ . * 

... ... F I . . 



SE —OP St { D A V ) 

AMSNE= AMSNc+SE 
SPTh = SP T W-S E 


• * IF * . T SOE.PTH = SOEPTH - SE/SF 

* SFHO .GT *♦♦♦♦ MO 

.*• 0.0 . * • ■" . * rx . • 

♦ # • ♦ 

* • * ““ 

...v . 

♦ * 00 LOOP~TO~% ' ■ * . v. - - . 

♦♦♦♦«■♦♦♦♦♦♦ STMT A 202 + 

♦ ■ ♦ HOUR = 1,24 ♦ 

♦ *~”~7 “* * ..: ., ; 

♦INSGRO IPUNSGRO .EQ. 01 AN O'. ( OR HP I DAY t HOUR I .NE. 0.01 .AND. (PET .EQ. 

♦ PETUI .AND. ( CCNJPT (31 .EQ. II > PET = 0.5*PET 

♦ I . ’ • >. •* : ■ 




C C-70 







r 


154 ♦ i 

. ♦ ! 

' ♦ I 

♦ 'I 
■ ♦ 1 

V ♦ i 
. ♦ I 

: 

v ♦ 

■ ;■■■■' -4 . 

- 

♦ 

♦ 

♦ 

: ♦ 

♦ 

; ♦- : 

♦ 

♦ 

♦ 

M 

♦ I 

♦ I 

♦ I 

♦ 

+ I 

♦ i 

♦ : 

•:! 

•• ♦ ! 

♦ i 

♦•I 

' t\ 

♦ 

♦ j 

♦ i 

♦ ; 

♦ 

♦ 

♦ 

Hr 

■ ♦: 

♦ 

♦ 

155 t 

tj ^ 

156 ♦ 

♦i 

'."..'-♦I • 

•. ♦! 

4 j 

. 4 

♦ 


. * ♦ . 
• * If 

♦ HOUR .EQ 
SGRT ♦ i 

* . 


T 


RGPM = DRGPM ( DAY) 


* * IF* * 

HOUR .bO 


T 

*+ *+♦ 

* 


HSE = (FWTR*PET)/12.0 


If 

HOUR .EQ 


T 

* 





PRH =RGPM*DRHP(DAY » HOUR ) 
AMPREC = AMPREC 4PRH 


ENTER SNOWMELT SUBROUTINE 


• ♦ * « 
♦ IF 

CONQP T ( 7 
► EQ. L 
4 * • ■ « 

* . * 

F I 


T 

*++f + 
* 


CALL SNQMEL ( BDDFSM, SPT W 
CC, SPMf ELDIF.OAY, 


SPBFLW « XDNFS * FFGR » FFS I f MRNSM » DSMGH» SDEP THUS TWO* PXCSA, 
SAX, SOFRF t OF RF IS ? SOFRFI , AMFSIL , PRH, SP TK f TANS M *SPLW tSFMO 
WT4AM, WT4PM, A SM» ASMRG, SASFX, SARAX , DMXT, DMNT , R ICY , FIRR ) 


HOUR, 

fOFRF, 


1: AMRPM=AMRPM*PRH 


i • 

. . X . 

• SI; ’i 

. *• 

i ’r/v-' 

r '• 



* .V*.'- ' 

* ,!y'- \V; 

I TOFR =0.0 
1 ARHF =0.0 


z;i 

'.V -*' r 


*• 


15 MINUTE ACCOUNTING AND ROUTING LOOP 


4 + + ++*♦♦+.+ + 


DO LOOP TO ♦ 
STMT H 187 ♦ 


i i- 

♦ f'i 

r i 

♦ • i ; ; 

PEB I =0.0 

4> 

PPl =0.0 

4 

CFR =0.0 

4 

OFR I S= 0 . 0 

4 

. WI =0.0 

4 

WEI F S= 0.0 

♦ 

PMEUZS =0.0 

- 

PMELZS =0.0 


PMEIFS =0.0 

♦ 

PMEOFS =C*0 

♦ 

PEP =0.25*PRH 

♦ 


♦ 

♦ 

1 


ORISINAi; PAgf rc 

0F «X» QuS 


i K ft 


*.-i IF * . T CALL PREPREH RGPM» DRHP ».D 

* ICONOPTIZ *+«■♦•♦ AY,HOUR,UPY,PRn.PEP* 

♦ I ,EQ. 1 * 

* i . * * 

I * , * — — 

I ' FI ♦ 

| ♦+++♦♦+++♦++ + ♦*♦*++♦** ♦ ♦♦♦♦♦♦■♦ 


• * * . 

• * IF ♦ • T 

* PEP .GT. *♦.*♦♦ 

♦ 0.0 A * ' 

'*! » • • * 

* T * 

F I 


. * * . ■ : 
. * IF * . T 

* OFUS .GT . *♦♦♦♦ 

». 0.0 * 

: * . . * 

* . * 

F I 


■ . * » . * . .. 

. * IF * . T 

*t IFS .GT. 

* 0.0 * 

■■■'♦■ « • * 

! ^ * 


♦ 

♦ 

♦ c 

157 ♦ j 
: 

' > •; 

♦ 

♦ 

’ I 

' ••• .4 i ; 

• ♦? 

♦ 

♦ • 



• * ' * • 

. * IF * 
*! NRTRI .G 
* T . 0 

[¥:. . . . • ■ * 

! * , ♦ 

! i : F 


| TRHF =0.0 


• ♦ * . 
r^:* IF ♦ . T 

♦ RHF.0 .GT *++++ 

*.0.0 * 

* • ■ . * ■ 

t ? * 


RAINFALL upper zone interaction 


. * * . 

! . * IF * . T 

!* PEP .GE. **♦♦♦ 

* VINTCR 

* . . * 

I * . ♦ 

i-'- : F 


UZS =UZS*PEP*TPLR 
VINTCR "VINTCR-PEP 
PPl =0.0 
PEBI =0.0 
PMEUZS =PEP 




. * * . 

_ ♦ IF * 

* OF U;S .Gr 

•;» 0*0 

♦ . • * 

I - "*! . * 

- p 


, T 

»♦♦♦♦ 

* 


GO TO 159 


1 170 I 


PPI =PEP— VINTCR 
U£S =UZS*VINTCR*TPIR 
VINTCR =0.0 
L ZSR =LZS/LZC 

UZC ®SUZC*AEX90+BUZC*EXPI-2.7 
♦LZSR I 


• o.» MW * LT * 

! ♦ . . ♦ 
I ' ! * . ♦ 


***** 

* 


UZC = 0.25 


F | 

I ♦♦♦♦♦♦♦♦♦ 


********** *♦***+***** 


iiZRX =2. 0*^BS ( UZS/UZC- l.O)*l .0 
FMR =( 1.0/ { l.D*UZRX) I **UZR X 


♦ . T 

* 

* 


FMR = 1.0 - FMR 


* + ** ***** * *** 4 - * * * **♦*♦*♦** 


PEBI = PP I *FMR 
PMEUZS =PFP-PEBI 
UZS =UZS*PP I-PEai 


♦ C LOWER ZONE AND GROUNDWATER INFILTRATION 


=LZS/LZC 
=4. Q*LZSR 


^ # T 
LZSR .LE ***** 

* 

♦ 


GO TO 160 


4.0*2. OMLZSR-l.O) 


♦ . T 

LZSR .LE ♦♦♦*♦ 

'♦ ■ 

♦ 


GO TO 160 


<TC-73 


o 


t 

♦ 

[ ♦ 
i ♦ 

! ♦ 

♦ 

160 ♦ 

♦ 

♦ 

♦ 

: 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ i 

■ ♦ ' l 

M 

♦ 
f 

♦ 

♦ 

♦ 

. ♦ ■ 

♦ 

:l 

♦ j 

♦ 

♦ 

♦ j 

♦ | 

♦ i 

♦ I 

t\ 

♦ i 

♦ ! . 

♦ ; 

♦ I 

♦ ; 

v-.; ♦ : 

♦ 

♦ 

♦ 

♦i ■ 

■ ■ :f, 

♦ 

♦ 

• ♦ 

: >1 

■ •••••: ♦; 

' ♦! 

161 « 

;j 


EjD =6*0 


PEBI =PEB!>0FUS 

CPIR =0. 2b*S 1AM*BMIR/(2.0**E!D| 
CjlVH =BIVF*2.0**LZSR 


• * * . 

, * IF ♦ 
Cl VM .LT 

■W 

vr 


T 

* 



II PEA! =PEBI*PEBI/(2.0*CMIR*CIVM) 


| MI =PEBI*PEB 1/ (2*0*CMIR ) 


. * ♦ . 

• * IF * 

* PEB I #GE 
+• CMIR 

v. * • . * 

* • * 

F I 


T 

* 


= PEBI - 0*5^ CMIR 


• * * - 

I . * IF 

f PEBI •GE 
'#• CMIR*C1VM 

V'T * • 

N ?i* 


T PEAT 

C I VM 

*. 


PEBI - 0# 5 4 CM JR ♦ 


i | ME IFS=WI-PEA I 


I; ■' • * * . 

!‘ IF 

♦ PEBI .LE 

[♦• OFUS 

* • 

• > £ i * 


♦ . T 

*♦♦♦♦ 

♦ 

* 


GO TO 161 


1PHELZS =(PEBI-Wn*UPEBl-OFUS> 

p- :,' /PEBI I 

IPMEIFS = WEIFS*UPEBI-GFU$)/PEBI I 
i PM EOF S = P E A t * U PE.B l-GFU S ) / P 6 B l| 


CONTINUE 


• 6 ♦ • 

. * IF * . T 
* IPEAI - *♦♦♦♦ 

•CFUS) .GT. 0.0 * 


GO TO 162 


| EQD *I0FUS*PEAl>/2.0 


♦ 
4 
4 
4 
♦ 
4 
* 4 
♦ 

162 X 

♦ 

4 

163 4 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

:. . . ♦ 

♦ 

4 

4 

4 

♦ 

4 

4 

4 

♦ 

♦ 

♦ 

♦ 

4 

♦ 

. 4 

♦ 

4 

■ 4 

4 
4 
4 
4 
♦ 

♦ 

4- 

164 4 
4 
♦ 

' ■ . 4 : 

♦ 

♦ 

. 4 ' 

4 

4 

♦ 

165 ♦ 

♦ 

♦ ' 

♦ 

♦ 

♦ 

. . 4 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

4 

f 

4 

♦ 

♦ 

166 ♦ 

4 


-„L„ 

Tl63”T 


] _ 

T ico ^ = £QDF4 < 7 pBaT^o7usT^*0> 6-}^ 


• * * • 

• ♦ IF * . T 

♦ ( OFUS 4 44444 

♦PEA! 1 .GT. C2.0+EQD* 

♦I ♦ 

* . • * 

F I 4 

I 444444444444+44444444444444444 


EQD - 0. 54 1 OF US + PE A I ) 


. * * . 

. * IF ♦ 

* (OFUS 4 

♦ PEA I ) . LE. 0.G01 

♦ . . ♦ 
* . ♦ 

F 



GFR -d.254t)FRF4I ( (OFUS+PEAI )*0.5) 
*♦1.67 )*( ( 1.040>6*( (OFUS 

PEA U / ( 2 • 0*EQD) ) **3 • 0 ) ** t .671 



•• ♦ * . 

. * IF * , 

* OFR .GT • 

* (0.754PEAI) 

* • •• . . ♦ 

* . * 

F I 4 

I +4+4 4+++++ 4+ + 4 4444+444 +4+4+4+ + 


. * * . 

V ♦ IF * 

* FIMP .EQ 

*. 0.0 

* * . ♦ 
* . * 


T 

*44+4 

♦ 


GO TO 168 


F 


I PEIS -PPl+OFUSIS 


. * * . 

. * IF * 

* I PE IS - 

♦OFUS I S ) .GT. 0.0 

* • . * 
* . * 

F 


T 

*4444 

* 


GO TO 166 


I EQDl S- ( OFUS I S+PE I S ) /2. 0 

\ ~~ 

Tl 67~ ~T 

] 

T~lQDTs=ioDFIS*t «peiS-OF'jsls)i*0.6) 


- C-75 


• * IF * . T 

* (OFUSIS **♦+> 

♦ ♦ PEIS) »GT , ( 2.0*E* 

♦OOI S) ♦ 

♦ • . ♦ 

♦ . * 

F | 


EQD I S 
EIS) 


= 0.5* (OFUSIS ♦ P 


• ♦ ♦ . 
m * IF * « 

♦ t OFUSIS 

♦ ♦ PEIS) .LE. 0.01 

♦ . . * 

♦ . ♦ 

! F I 


T 

♦ -if + + 

* 


GO TQ 168 


OFRIS=0.25*OFRFIS*( ( ( OFUS I S *P£ l S ) 1 

*0.5)**1.67)*< ( 1 . 0*0 # 6 * ( ( I 

OFUSIS * P.E I S ) / ( 2 • 0*EQDF l $) )**3. 0) ♦♦ 1*67) 


• ♦ ♦ . 

. ♦ IF ♦ 

♦ OFRIS .G 

* T - $ E ! S 

F I V 


T 

♦> 4 - + + 

* 


TOFR =T0FR*FPER*JFR*FIMP*0FRIS 
+PPI*rWTR 

OFUSIS *PEIS-W=fUS 
CFUS = PE A l — OFR 


♦ OFUS .06 

♦• 0.001 


♦iff* 

♦ 


GO TO 169 


| LZS = LZ SfQF U S 


CFUS =0.0 


QFRIS = OFRIS + OFUS IS 


1; ofusis =o.o 



X =l.5*ABS(L ZS/LZC- 1 .0 )>1. 0 
= (1.0/ ( 1 •Q*LZRX) )**LZRX 


♦ US .LT. 

♦ L 1 C 

♦ . 

F ! * 


T 

■: * : 


= 1.0 - FMR*ILZS/LZ 


PLZS *FMR*(PEBl-WI ) 

PGW = C 1 . 0- F M R )*ir hB I -W l )*{ 1 . 0 
-SU8WF ) *FPER 
GWS = G Vi S ♦ P G W 
BFNX =dFNX+PGW 
LZS = LZ S*Pl ZS 
IPS =IFS*WEIFS*FPER 
















. . 4 

4 

4 

175 ♦ 

* 4 
♦ 
♦ 

4 

♦ 

4 

4 

♦ 

■'■■■■ ♦ 

^ ' 4 

♦ ■ 
♦ 

. ■ 4 

♦ 

■ :'♦■■ ' 
' 4 : 

♦ 

4 

4 

4 - 

♦ 

- ■' 4 -' : 

• .4 

176 ♦ 

4 : 

4 

4 

■ 4 ■■■/ 

• . - 4 - : 

4 ' 

4 

4 

4 

4 

4 

178 4 

. . 4 ■ 

: 4 
4 
4 
4 
4 
4 
4 ’ 
4 
4 
4 
4 
4 . 
4 : 
4: 
4 
4 
4 

4: 

'4 

4 

4 

4 

4 

179 4 | 
4 
4 
4 
4 

* , 

4 

4 : 

'• : 4 ; •' 

4 

. ' 4 : 

4 

4 , 

4 

4 

4 

4 

4 


| TRHF =TRHF+URHF*CTRI (KTRI ) 


• * * • 

• * IF * • T 

♦ CONOPTd *44+4 

*3) .EQ. L .AND. LSH* 

♦FT .AND. KTRI .Gb. * 

* . • ♦ 

tv* 


URHF*SA 


1 4+444 4+444444 

R I (KTRI - l) 



+44444+4444+4444+ 


UHFAIKTRI j+ 1) = URHF 
IT 7 7 I 


UhFA (KTR 1+ 1) = 0.0 


I KTRI -KTR I - l 


. ♦ ♦ . 

• * IF * . T 

*Y KTRI .GE *44+4 

♦ •l 

* . . * 
tv* 



; . * * . 

* ♦ IF * 

♦ URHF .LE 

*• 0.0 

* . • * 
tv* 


T 

*4444 

* 


GO TO 179 


1 NRTRI- NCTRI 


. * * . 

• ♦ IF * . T NRTRI = MXTRI 

♦ CONOPTd *4+4 + 

♦31 .EQ. I * 

* . . * 

* . * . 

F I 4 

1444+4444444444444+444444444444 


1 NRTRI -sNRTR I- l 

I UHFA ( L ) =0.0 


• * * . 

• ♦ IF * . T 

* CONOPTd *4444 

*3) .NE. I ♦ 

* • 

F I 


GO TO 180 


I NNSTRI =NCSTRI41 

I UHFA(NNSrRl) =0.0 


C-78 



4 

180 ♦ 

. f 
4 

181 ♦ 
♦ 
4 
♦ 
4 
4 

■ 4 

4 
4 
4 
4 
4 

. 4 

♦ 


| URHF =0,0 


• 4 * • 

• ♦ IF ♦ . T 
4 SRX .LE. 44444 

4 CSRX 4 

4 « • * 

♦ * 4 

f J 

I 4 44*4 44 444 4 44 44 


| RHP l -TRHF-S RX4 ( TRHF^RHFO I 
( RHPQ “RHFl 


• ♦ 4 . 

.4 , IF * . T RHFC * 0.0 

4 RHFO .LT 44444 

*. RHFKC 4 

♦ . . ♦ 

4 • ♦ 

■ ■ P I ' > 

I 4*444 4 *444 44 444 44444 444 444 44 444 



| TFCFS- I 4 .0*RHFi4CBF~HS E ) *WCF S 


' * * . 

* * IF ♦ . T 

* CON OPT (I *4444 

♦3V .NE. i * 

* . . ♦ 

. * . * 

F I 



. * .♦ . 

. * IF * . T 

* CONOPT ( l *4444 

*2) .EC. I .AND. PRD* 

* .NE. 4 

* . • ♦ 

* I * 



- 4 
182 4 


CALL RT VARY < CTR I , SATR I ♦ BTR l , CHCAP , NBTR I , MXTR I , NCSTR l ,EXQPV, LSHFT , 
TFCFS ) 

1 ■ r 

| DATE =MOD (DAY »MQAY ) I .. . 


CONTINUE 


• • * • • 

. * IF * . T 


* LSHFT 

■ * ' . * ■ 

F I * 


8H EL EM ENTS ) 


*4444 O.NCSTRI 


WRITE(6,6) DATE, HOUR, PR 


FORMAT 6 FORMAT I 2 X , 1 2 , 2 X , 1 2 , 2X V 
12 » 2X , 20HH 1ST GGKAM CHANGES TO, IX, 12, IX, 


ms r 


. * * . 

. * IF * . T 

* TFCFS .L *4444 

♦E. 0.5*CHCAP * 

* . . * 


SRX = CSRX 


C-79 


I 


m 

• t 

t 

. . • * 

4 

♦ 

♦ 

♦ 

> 

4 - 

♦ 

4 

4 

♦ 

4 

♦ 

♦ 

183 t 
4 
♦ 
4 
4 
♦ 

184 4 
♦ 
4 
4 
♦ 
+ 

. ♦ 
> 
♦ 

' ♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
4 
♦ 

. ■•* ♦ 

♦ 

• 4 
♦ 
♦ 

4 

♦ 

♦ 


. * * . 

• * IF * . T SRX = CSRX 

P (TFCFS . *4444 

*GT# 0 . 5 *CHC A° ) .AND* 

< TFCFS .IT. 2.0*0 

* V . * 

* . * — - — 

F * ♦ 

♦ + + 44444444 

♦ IFSRX J CSRX ) * (( TFCFS - 0. 5*CHCAP)7 < l.5*CHCAP) 1**3 

. * * * • 

. * IF * . T SRX = FSRX 

♦ TFCFS .G *4444 

*T • 2.0*CHCAP * I •:•:“• 

/ * . . * . -i 

♦ . * — 

F | ♦ 

|444444444444444444444444444444 


• * * • _ .. 

• * IF * . T 
♦ TFCFS .L 
*E. TFMAX * 

V . ... ♦ 

F l • 


GO TO 183 


PROF = PRO 
T0FP24 = HOUR 


. * * . 

. * IF * . T * TDFP24 = ITDFP24 - 1.0) 

* PRD .LE. ***** * 0.15*PRDF 

* 3 * • •■•••• 

* • • * „ .. . 

1 F I * “ ♦ 


| TFMAX=TFCFS_ 

i VJZT T^ 

T ARHF =ARHF*RHFl 

T"” ’ 

STORM OUTPUT REQUESTED BY CONOPTtl I 

i I J; 

. * • * . » *■'" 
. * IF * . T GO TC 

* CONOPTU *♦«•♦+. 

*» .NE. 1 * 

* . . * 

♦ . * 

. . F I 


GO TO 186 


• * * # 

• * IF *. • T 

♦ DAY .NE. *4+44 

♦ CDSDR ♦ 

• • • * 

F i * 


GO TO 186 


18 

' mja fUJALOY 


. ♦ ♦ . 

. * IF * . T 

* HOUR .EQ *4444 

*. 1 .AND. PRD .EQ. * 

*i ■ * 

■V'#.: 

Si* 


WRITE<6,7) 






T 

♦ ♦♦♦♦ 

* 


GO TO 197 


|07 ♦♦♦♦♦♦♦♦CONTINUE 

♦ C END OF 15 MINUTE LOOP 

♦ 

♦ I 

♦ • 

♦ • * * . 

♦ . * IF ♦ . 

♦ * : .CON OPT ( 5 

♦ ♦ I #NE# 1 

■ * • ! 

♦ * . ♦ 

♦ 

♦ 

♦ C HOURLY OVERLAND FLOW AND RAINFALL SORTING 

i i 

♦ • 

♦ . * ■* . 

♦ # * IF * • T 

♦ * TOFR .LE *♦♦+♦ 


^ • 
f i 


♦ 

♦ . 
♦ : 
♦ ■ 
♦ 
♦ 

' ♦ 

♦j 

♦i 

188 ♦ 
♦ 

: ♦ 
■4 

♦ 
♦ ■ 
♦ 


c.o 

* 





I KT20 -.20 


* 

♦ . 


% IF 
KT20 .LT 



♦ 

' ' f 

«♦ 

♦ 

. . ♦ 

♦ 

♦ •• 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

■ . «♦ 

189 ♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

190 ♦ 

. ♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

191 ♦ 

-. ♦ 

♦ 

i 

' ♦ : 
y' 4 '■ 

♦ 
♦ 
♦ 


♦ 


r ♦ IF * 

TOFR .GT 
T 200PH ( KT20 ) 

♦ • . * 
♦ . ♦ 

F 


T 

♦♦♦♦♦ 

♦ 


GO TO 189 


(190 I 


T200FHIKT20+ l ) - T200FH1KT20) 


1191 1 




T20CFHOCT20+1 J 

I i 


= TOFR 


1 193 I 


I 


I KT20 =KT20-l 


1188 I 


•I 






4 

♦ 

♦ 

♦ 

♦ 

4 

• :♦ 

♦ 

♦ 

♦ 

4 

4 

♦ 

♦ 

♦ 

4 

4 

♦ 

. 

4^ 

♦ 

: 

306 ♦ 

i 

4 

* ♦ 

t 

♦ 

' .4 

4 

4 

. . 4 

♦ 

.4 

4 

4 

4 

4 

4 

4 

■■■■■■■ 4 

. -4 
■■■■"■■ 4 

4 

4 

4 

■4- 

4 
4 
4 
4 
• 4 

4 
4 
♦ 
♦ 

> 4 

4 
4 

4 

■ 4- 

4 
4 
4 
4 
' 4 
4 
4 
4 
4 
4 
4 
■ 4 
4 
4 ; 

4 

4 

4 

4 

4 

4 

4 


AMS E = AMS6+HSE 

TF$F( HOUR ) - CTHGH*HSE I ♦WGFS 

TOSF =TDSF*THSF1 HOUR) 


C STORE SIMULATED HOURLY STREAM FLOWS 


C ORA IN TNG OF UPPER ZONE STORAGE 


| S INDEX *$ INDEX 41 
- 

THSFD ( S INDEX , 3 ) = THSF ( HOUR ) 


| UZ1NFX = ( U ZS / U ZC j — t L ZS/iL Z C J 


• * * < 

• . ♦ IF 

♦ UZINFX . 
*LE. 0.0 

* • 

F I * 


T 

* 


GO TO 198 


LZSR -LZS/LZC 

UZl NLZ = 0 . 00 3*BMIR*UZC*UZ I N FX* 
♦3.0 


. * * • 

. ♦ IF ♦ . T UZl NLZ = UZS 

♦ UZl NLZ . *4444 

♦GT. UZS * 

* * . ♦ 

F I ~~ “ ™ 

I 4444444444+4-4444444444+4444444 


UZS -UZS-UZ I NLZ 

LZRX “ l. 5* ABSTLZSR- 1 . 0 ) 41 , 0 

FMR -11*0/ ( l.O+LZRX) ) **LZRX 


. * * . 

. * IF * . T 

* LZS .LT. * 4+4 4 

♦ LZC * 

* . . ♦ 

* . * - 


FMR = 1.0 - FMR*LZSR 


444444444444444444444444444444 


PGW = ( l . 0- F MR > *U Z l NL Z* < l . 0- SU B WF 1 
♦ FPER 

PLZS =FMR*UZINLZ 
LZS = L ZS + PL ZS 
GW S =UWS + PGW 
BFNX -BFNX+PGW 


C 4 PM ADJUSTMENTS OF -ARIQUS VALUES 


ORIGINAL PAGE IS 
OF POOR QUALITY? 





190 ♦ 

i 

■ 4 

♦ 

♦ 

♦ 

4' 

4 

♦ 

■ 4 ... 

♦ 

♦ 

♦ 

♦ 

■... V ) 

■' 4 : 

•••. 4 > 

■ 4 
♦ 

4 " 

■ 4 . 

♦ 

♦ 

' 4' . 

. 4: ■ 

4 

ir 

♦ 

4 

4 

4 C 

4 

4 

■■■■■■ . 4 

' 4 

'■ 4 

4 

■ ■ 4 

' 4 ; 

4 

4 ! 

. 4 

4 

. . .4 : . 

4 

4 

4 

. 4"t: 

4 

4 

4 

! 

, . > ♦ . 
.. 4 } 

4 

4 

■ 4| 

. :i 1 

4 
* 4 
4 
4 

. 4 - 

4 

4 
. 4 
4 


I AEX90=0.^*(AEX904PET ) 

I AEX96=0.9t*( AEX964PCT ) 


INF I LTRAT l CN COR RECT ICN 


J SIAM = ( A fc X 9 6 / A E T X 1 * * S I AC 


• * * . 

IF * . T SIAM = 0.33 

* SIAM .LT *44*4 

0.33 * 

. m -j. . * . w ‘ ~ ~ 

* . * — - 

F ♦ 

I 44 44 44 444 44 44 44444444 4 44 44444 4 



| BF.NX =0.97*BFNX 


’ • * * • 

. ♦ IF ♦ V* T 

♦ PET ..ECU *4444 

* c.o ♦ 

* i . * 

F I 



EVAP-TRANS LOSS FROM GROUNDWATER 


GWET ~GWS*GVjETF * P ET *f PER 
GWS — GWS'-GWET 
BFNX =3FNX-GViET 


• * * . 

• * IF * . T BFNX = 0.0 

* BFNX .LT *4444 

*. 0.0 ♦ 

* . . * 

♦ ♦ 

I F I ♦ 

i I 4444444444444444t44444 44444444 


| AHPET^AKPET4PLT 


. * * . 

. * IF * 

* PET .GE. 

* w 5 . 

! F I * 


T 

*4444 

* 


GO TO 199 


| UIS -UZS-PET 
( AMNET- AMNET4PET 





♦ 
♦ 
♦ 
♦ 
♦ 
4 
♦ 
'■ 4 

199 4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
.. ■ 4 
4 
4 
4 
4 
4 
4 
' 4 
4 
4 
4 
4 
4 
4 
4 
4 


Tzo ? I 


PET =PM r u;_5 c 
AMNETsAMfil TtUZS 

vis =o.;j . 7r 

L Z SR -LZV/L/- c 


! | ^ |f. 4 • ' T j 

'♦! " PET JiT * 444 44 

♦ ETLF4LZSM A * 

* • * • * 

; i * 



|| set spf 1* i \ • 0-P£T/ C 2.0*ETLF*LZSR ) ) I 

~ Y'~ ‘ 



: i 

4 . 

1 



- f 

. »• .. , »/ K 

f. 

200 

4 |« 

4 

sir = 0 .‘>*eTLF*L 2 SR 

j 




4 

4 

T 



: ^ •••! 

201 

■4- : - 

4 

1 LZS =L/>-:»FJ ct 



V • ■ $• 

\ • g 


4 

4 

4 

202 44 


444444CCNT1NUE 
C END OF HOUR tCCP 

\ 

J'BIIhOAvT »TOSF^ 2A^O _ I 


. * * • 

. * | r ♦ . T DSSF(DAY) = 

* CONCPHl *♦♦♦♦ DOIWCDAY) 

•1) .EQ. I . M * 

* . 0 • * 

F j T ♦ 

I 4 ♦ ♦ ♦ V ♦ ♦ ** «+++ ♦♦♦ ♦ 4- ♦ ♦ 44 44 4 4 44 44 


OSS F ( DAY) = DSSFC DAY I ♦ 

DOIWCDAY) 


I AMRTF= A tg p I E4DR SF l D AY ) 
I AKSTF= TF+-OSSFCDAY) 


. * * ' 
. * IF 

* CONOR I I^> 

*> .EQ. 1 

* *. * 

: : f 1, . J-; : 


T 

444-44 

4 


EOL ZS ( DAY ) = LZS 


F I 4 

14444 4444 4444 444444444 44444444 

C STORE ERRORS AND F LOW DURATION 

• : ' i ■. : • 


■C~ C-86 




I 


FORMAT 9 FORM A T ( 1 H / 1 1 X/ « l X • I A « 
_________ __2X»_2HAM l IX, 6FB. 1 , 3X, 6F8. I > 

■;r7teT6TT3T ” " ” ♦ 

I THSF ( HOU RltHQUR=13» 29") » DSSF(OAY) ♦ 


— — — — ■ 


I 

. • * 

. * IF 

* TDFP24 . 
♦LT. 12.0 

*' * . . * 
F 


— — ♦ 


* 


T 

**♦•*•+ 

* 1 " 


FORMAT 
GO TO 205 


10 FORMAT IlHi»6X,2HPM* IX, 
6F8.1.3X.7F8.U 


I TDFP12 =TOFP 2VIZ.0- 

.77 ~~~7” 

AHP.M.l 

] 

T206 T 


FORMAT ll FORMAT 1 1H/ *1 OX. BHMAXlMUM* 
»F8. 1* 2X,6HC .F,S.»5X»AHriME«3X«r5.2,2X» 


205 


206 


CONTINUE 

AHA.M.I 

I 

. * * * . 
. * IF 

CONOPT ( 7 


FORMAT 12 FORMATllH/. l OX • 8HMAX !MI!*= 
»F8.1,2X,6HC.T.S.,5X, AHTlMfc.3X,F5.?.2Xt 
FORMAT <.033 FORMAT I IX. 5HOFUS = , F7. 3, 1 X 
6HNRTRI = , F7.?, 1X,5HO ! HFO=,F7. *1 


•» .EQ. 1 .AND. SDEP* 
*TH . GT. 0.0 



* . . * 

’ F ) ♦ ■ ' 

{+-»«+ : . v* 

SOEPTH.STMD.SAX.TANSM, SPLW 

FORMAT 13 FORMAT ( 3X» l<>. 2X, 7HSDEPTH 
2X # 6HTANSM=,F6.2.2X,5HSPLW=,F6.2i »F8. 2, 2X, 5HSTMD= ,F6. 2 , 2X, AHS AX=, F6. 

: I ■ ~ • • • ■ .... '/ . .. . 


| MAXI -MAXI*-! 


MPOAY ( MAX I ) =DATE 
- 

MONTHLY SUMMARY STORAGE 


STMROS (MAXl*3)=DSSF(DAYI 


?*. “nr 
* a . i.— xj* 


TMSTF ( MAXI t 3 ) -AMSTF 
AMSTF=0* 0 

TMRTF ( MCNTH) - AMRTF 
AMRTF=0« 0 


1 

EMBFNX(MAXI,3I=BFNX 

TMPRECIMAXI,3)=AMPREC 


*+ *- »• •AT**’ VMM. 
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N) || 


I 


AMPREC =0.0 
TMRPM(MONTH) = AMR PM 
! AMRPM = 0.0 

iTMBFIMAXI ,3» = AMQF 
AMBF =0.0 

TM l F ( MAXI *3) =AMIF 
AM I F = 0.C 

TMSE ( MAX 1*31 = AMSE 
AMSE =0.0 

iTMPET I MONTH J =AMPET 
AMPET=0. 0 

.TM.NET < MONTH ) = AMNET 
AMNET=0.0 

TMSNE ( MCNTH1 = AMS NE 
AMSNE=0. 0 


TMFSIL I MONTH) = AMES I L 

I I 


AMFSIL =0.0 

EMGWSIMAX I .3 1 =GWS ... . 

~ UZC =SUZC*AEX90+BUZC*EXP<-2.7 
♦LZS/LZC) 


220 


. ♦ IF * * T * UZC = 0.25 

* UZC-LT. - *+♦♦♦ 

* 0.25 * 

* • • * 

* , ♦ 

F 1 , ♦ 


r 


I EKUZCt MAX I f 3 ) =UZC 
j EMUZS(MAXI,32_=UZS 

: :rr T ‘ 

.EMS I AMI MAXI »3 )=S I AM 

•_.L i 

I EMLZS ( MAX I »3 ) =LZS 
| EMIFSIMAXI »3 I = IFS_ 

■CONTINUE 

. * * * . 

. * IF * . T MDAY=59 

* MDAY.EQ. *+«•♦•► 

*337 * 

* . . * 

' * t 

,-F I v ♦ 


3001 


C STORE MAXIMUM DAILY STREAM FLOW FOR YEAR 

J r ' •' __ 

T TFMAXY(MAXI)_=TFMAX 

:•> ■' ~ r ~ T - 

CONTINUE 


I 


# ♦ * « 

. ♦ IF ♦ 

* 0 AY. EQ • E 

♦DATE 


, T ■ . 

♦♦♦♦♦ 

* 


GO TO 3002 



SUBROUTINE PASTRN(PDAY,&ATES, MONTH, EDATE,MSBOlC,PDATE,LOAY,MPDAY) 

COMMON/ PL0TC/DRSF,DSSF,C0NCPT,THSFD»TMSTF,STMRUS( 121.6I,DPY,TITLE, 
KFLAG, IDf-LAG. , 

IENDFG, STUDY 12 ) , PE AKS , PHRS , NSPT S , THSFDM , TF MAXD , IMP TT , JPtf'T , 

NCTRI .CTRI.F IRR.R I CY , DPSC , BDOF SM, SPBFLW, SPTWCC, SPM, FLO l F, 

XONFS , FFORfFFSIt MKNS M, DSMGH, PXCS A ,RMPF,RGPM8 , AREA.FIMP, 

SATRI tUHF A , 

MKRD, 

FWTR, VINTMR, DU ZC , SUZC ,LZC, E Tl F , SIJBWF , GWETF , S I AC.BM1R, 
BlVF,OFSS,OFSL,OFPN,CFMNl S, IFRC, CSRX,FSKX,CHCAP,CXOPV, 

BFNLR, BFRC,GWS,UZS,LZS,3FNX, ITS, BTHRC , LFRL , BFNR L, HFNHR , 1 FPRC , 

I FRL » L SHF T , NBTR I ,FNTRi ,‘VXTR l .NCST.U ,BTK I , TFC FS , CP &E7 , FP rR , 
TPLR.VINTCR.HSE.nRTR 1 ,SPIF,QIF , SPUR ,OFUS , OFUS I S , OFR ,OFR IS, PEI St 
RHFO, URHF, AM IF, AM NET » AM PET , A'MSNE , AMF S I'L , SASF X , S AR AX » SRX , VWIN, 

, WCFS, RHFMC, S SRT , OFRF ,QFR F [ S , CD OF , FOOT IS , SCVFRT , SOFSF I , 

I SDEPTH, MULTI ,10, ASM, WT 4 AM, , WT4P M , S AX , T ANS M« SPT w , ST MD , SF y r)» ASMRG, 
DEPEND I 2 ) » VAR.l N ( 2 I .NPTS , JULDI , IYR,T0DARY(5,1)» 

TCMARY (7,1) , TUSARY ( 5,6 , 1 ) » TSDAK Y 1.6 , II .TSMARY ( B , 1 ) , 

TSS.ARY(3,6, l) , TSMCRY I 1 ) , T SCCR Y ( 1 ) , TSRAR Y ( 1 ,6 , 1 ) , 

TCP ARY ( 1,6,11, 

DRSFT ( 366) , DSSFT ( 36 6 } , M I , Nl , MULT .TMRTFT ( 1 2 ) , TMSTFT (12) 

COMMCN/COMMA/EM.BFNX , EMGWS * EMI FS , FML ZS» E MS l AM , EMUZC, EM,UZ S » TMBF , 

TP l F » TMPREC « TMS E, £R FM I « OD IW, DMNT , OMXT , CRGPM, DR H° » DR SGP, DP FT , EDL ZS » 
EPCP,SERA,SFRR,SbSF,SOER,THSF,TMFSll,TMNCT,TMOF,TMPET,TMRPM,TMSNE, 
IPSTFI ,T200FH, T 20PRH , TMR T FI , JULDAT, 

TFMAXY.UZC , AET X ,DAY,NSGRO, AEX90, SI AM.NDSOP ,RGP M , NDSDR , YRl , 

TRHF , 

SINDEX, INDEX, AEXS6, FAXl , YR2 ,B YLZS, BYIFS , BYUZS 
C KENTUCKY WATERSHED MODEL IVERSION OF JUNE 6, 19701' 


i 

> 


f, 



C BASED ON STANFORD WATERSHED MODELS III £ IV 

:v. : ■ 

OIMENSIGN BTRI (99),C0N0PTIT61;CRFMt-(2^r,CTRI(99HDDlW(366J, 
0MNT1366), DMXTI 366), DPSEI 366I, DRGPM(366), DRHP ( 366 , 2 A) , 
DRSGP ( 366 ) , DPET ( 366 ) » DkSF t 366) , DSSFI 366), cULZS(366), 

EP.BFNX ( 15,3) i C y G A S ( L5,3> , EMlFSf 15,3) iEMLZSI 15,3 ) »E MS l AY ( 15,31, 

- EMUZC! 15, 3) ,EMUZS< 15, 3) ,EPCM( 12 ) , F I RR ( 15 ) , MFDG Y ( 12) ,MFDWY( 12), 
RICYI37), SATRU99). SERAI22), SERRI22), SESFI22), S0ERI22), 
* _ THSF(24) .TITLE! IB) , T PDF t 157 ?T, THF S 1L ! 1 2) , TM I F ( 1 5 , 3 ) , T.MNfc T ( 12 ) , 

' TMOF (15,3), TMPETU2) , IMPRECl 15, 3) , TMRPM.I 12) , TMRTF ( 12), TV Sc I 15,3) 
TMSNE ( 12) ,TMSTF(15,3),TMSTF1 ( 13,3) , T23UFH (21) ,T20PRH(2l) , 
UHFAI99) ,TMRTF l( 12) , JULDAK6) , THSFO ( 744, 3 > ,TFMAXY( 366) , 

PEAKS (6), P HR S ( 6), NSPTS16),THSF DM (6) 

LOGICAL LSHFT 

INTEGER CDSDR , CN, CCNUPT , DATE , DA Y, DPY, EiHSGD, HOUR ,HRF ,HRL , PD AY, 
P;RD, RHPD, RHP H, RSBD, SGMO, SORT, SGRT2, YEAR, YRl, YR2, PHRS, S INDEX 

-INTEGER TOMARY, TSMARY, TODARYi TSDARY, TOSARY ,TSS ARY 

INTEGER DATES. EDATE,SINDET,MPDAY( 15) , .... 


DIMENSION RPLDTC (1 832 ) .RCOMMA! 12087) 

ECUI VALENCE ( DPY , RPLOTC ( 1 ) ), I CP.F M I , RCOMMA ( 1) ) 


REAL I FPRC, IFRC, IFRL, l FS ,L ZC ,LZRX ,LZS, LZSR , MHSM, MNRD, MRNSM, NHPT 
DATA MEOCY/ 0, 31,59,90,120, 151,181,212,243, 273 ,30 A , 33 A/ 

DATA MEDWY/304, 334,365, 31, 59, 90, 120, 151,161, 212, 243,273 / 

REAL MXDRS F , MXDSSF , MXMRSF , MXMSSF , SSQD 

REAL SSQM.SSQOI , SSCMl , VDKSF, VDS SF 


REAL VMRSF,VMSSF,SDDRSF,SDDSSF, SDMRSF • SDMSSF, SMDD , SMMD , SMSQD , 
SMSQM 



REAL MDRSF , MDSSF ,MMRSF , MMSSF 


BACKSPACE l 1 

♦ +_ rIad " 17 ” ♦* 

♦ (RPLOTCl I ) ,1=1,183*. ♦ 

♦ * 

♦ _ __ _ .... _ ♦ 

+ ”~p~ ”” ' * 


oatewALnoB® 

or POOR QOAIOT 






I ft:. 

d "K. 


BACKSPACE j 18 


♦ RE AO ( 1 8 ) 

♦ I K COMMA ( U » I -1,12087 > 


CALL R E AD ( G W S , U Z S , L Z 5 , B FN X » 1 PS , 0 2C ♦ SI AMI 

[ + 7 - — ————— — - 

; WRITE 16,5005) 

I > GW 5,UZS , L Z S , 8 FNX, IPS, UZC, SIAM 


FORMAT 5005 FORMAT ( LX 1 4HGW$ = , F 7. 3,7 X , AHUZS- , F7 .1, IX, AHLZ S= ,F7 • 3 ♦ IX , 5HBFNX~ , 
Ff. 3, LX , 4H I FS= , F7. 3tlX , 4HUZC* , f 7 • 3 1 LX , 5HS L AM=, F7* 3 * 

CONTINUE 

DATE - PD ATE V . ~ : ' . L 

' DAY -OATES : v , ^ ■ -—■-v:- ■ ; 

MC AY -PC) AY 

S INDEX =0 ; 

. ! MAXI =0 

.1 AMRPM- 0* 0 - .. . 

AMPREC =0.0 
AMBF =0.0 

amse = 0.0 •: * k * * ; 

AMSXF= 0. 0 * ... _ . 

AMRT F=0. 0 


• % ^ • 

. * IF * . T MEDWY ( 5)=366 

♦ OPY .EQ. *++f ♦ 

♦ 366 * 

* • • * 

♦ * :r 

j + + 4 * 4 + **^* + ++ ♦♦ + + + ++♦ + + + + +-**+ + 

/’SrItF ( 6 , 4 ^ ~+* 

♦ C TITLE < K TA ) , KT A= l , 1 8 ) 4 

♦ -••••.• ' -.:■■■■ ‘j - ♦ - 

„ _ _ _ '' rk4 ' ' 




FORMAT 4 FORMAT 1 1H l ,1 OX, 1 8A4 , //) 
-FORMAT 3. FORMAT ( l X, « PAST RUN HOURLY 
CFS VALUE* ,//, IX, 4A4) 


1 > + ~Wr 7 te 76 , 37 _ ”~ 

♦ MSBCIC 


— 4 

, ■*: ' + 

♦ 

♦* 

— — — ♦ 


C BEGIN CAY LOOP 
I 


| 1MGNTH =MCNT H 


i 

] 






I TDSF *3.0 

" I 




GO TO 148 


. ♦ IF ♦ . T 

* MONTH. NE *♦♦♦♦ 

*.4 ♦ 

♦ . . * 

♦ . * 

F I 


. ♦ * . 

. * IF * 

♦ MDAY.NE. 

♦ 31 

♦ . . ♦ 


T 

♦ 


GO TO 149 


. * * . 

, * IF * . T l MO NT H= MONT 

♦ OATE.GT. >4444 

♦IMOOCDAYtMDAY) V ♦ 

* , * 

F | * ; 

CONTINUE 


PET =EPCM< I M 0 NTH ) *U PET (DAY I 

P6TU =PE I 

TFMAX-0.0 


C EVAPCTRANSP IRAT I GN ADJUSTMENTS 


. ♦ ♦ . 

• * IF * . T 

♦ CONOPT ( 7 *444 4 

*) .NE. 1 * 

* . . ♦ 

N* 


GO TO 153 


# ♦ IF * . T PET = 0.0 

♦ DMXT ( DAY *4444 

*) - 4.0*ELDIF .LT. * 

♦40.0 ♦ 

♦ . . * 

♦ , ♦ * * 

* F I ♦ 


. ♦ ♦ . 

* * IF * . T 

♦ SPTW .GT *4444 

♦. SPTWCC ♦ 

♦ . . ♦ 

F I * 


PET = FF OP ♦PET 


I 

I f4ff+44+it4f 4 4f + 4> 44444444 444“ 4 


C C AtCULAT I CN OF SNOW EVAPORATION 

I _ 

1 « ♦ " ♦ . 

. ♦ IF ♦ . T C 

♦ DMNT ( DAY *44++ 

♦1 .GT. 32.0 .OR • S P* 

♦TW .IE. DP SE (DAY ) ♦ 

♦ . . ♦ 

♦ * 

FI 


GO TO 153 


C-93 


SE “DPSE ( DAYI 

AMSNfc= AMSNG4 SE 
SPIN = SP T W-S E 



• * * . 

* ♦ IF * • 

* SFMO .GT 

♦. 0.0 

■ ^ 

F ] + 

[ ♦ 444 4 4 4 4 4 4 4 4 4 4>4 4 4 * 4 44 44 4 + + + + + + 


153 


I ♦ 

44 4 44444444 


DO LOOP TO 4 
STMT # 202 4 


♦ HOUR = 1,24 ♦ 

♦ * 

\ 


MNSGRD IF ( { NSGRD .EQ, 0) .AND. (DRHP (DAY, HOUR) .NE. 0.0) 
♦ PETU) .AND. ( CCNUPT ( 3 ) .EQ. 1) ) PET = 0. 5*PET 

♦I : 1 . I - 

(CCNTINUCC CN PAGE 5) 


:i 

4 

154 4 
4 
4 
4 

3 

4 
; 4 

4 

4 

■ 4 

1 
' 4 
.4 
4 

■■ 4 

. . . 4 

• 4 

. 4 

/ 4 
4 

. 4 

4 
4 

■ ■ 4 

■ ■ 4 

' 4 

4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
:• ,4 
4 
4 

• 4 

' \4 
* 4 

4 
4 
4 
4 

155 4 

4 


• AND* ( PET .EQ 


PAGE 


RGPM = ORGPM ( DAY) 


. * ♦ . 

. * IF * . T 

* HOUR .EQ 44444 

*♦ SGRT 4 l * 

.1 * . ' . * _ ___ 

F I ""~-- 

I 444 4 4 4 44444444444444 4444 444444 


HSE = (FWTR4PETT/12.0 


. * * . 

. ♦ IF * . T 

♦ HOUR .EQ 44444 

♦ .9 * 

* . . ♦ 

* f * 

F 1 4 

I 4444444444444444444 444 44444444 

* * t * • . " 

. * IF * . T | HSE = 0.0 

♦ HOUR .EQ 44444 

. .. • 

f i * 


PRH =RGPM*DRHP (DAY, HOUR) 
AMPREC SAMPREC+PRH 


I 


I 

ENTER SNOWMELT SUBROUTINE 

I 


CALL SNOMEL ( BDDFSM, SPTW 
CC.SPM, ELDIF ,DAY, 


. 4 ' ^ .• ■ 

. * IF * . T 

CONOPT ( 7 *4444 

•EQ. 1 ♦ 

♦ * 

F I * 

I 4 444 4 4 44* 4*444 4 4 44+ 44 444 44444 4 

SPBFLWr XDNEStFFORtFFSl tMRNSM f DSMGH.SDEPTHtSTMD, 


iKDriNf Aur^r 5* rruMrr^ i tnKront iut k m » 5 » siu * 'XCSA . HOUR. 

SAXt SOFRFf OFRF l S , SOFRF l f AMP S I L » PRHt SPTW t TANSM.SPLW, SPMD, OPRF, 
WT4.AM • W T 4 P H * A SM f A S MR G » S A SF X * S A R A X t UMX T # D HN T » R ICY t F I HR ) 


| AMRPM=AMRPM4PRH 




TOFR =0.0 
AKHF =0.0 


15 MINUTE ACCOUNT I NG AND ROUTING LOOP 


♦ ♦ 

♦ DO LOOP TO ♦ 
STMT ft 187 * 

♦ PRD = 1,4 ♦ 


| PEBI =0.0 


PPl =0.0' 

OFR =0.0 
CFRI S=0. 0 
Wl =0.0 
WE IF S= 0.0 
PMEUZS =0.0 
PMELZS =0.0 
PMEIFS =0.0 
PMECFS =0.0 
PEP =0.25*PRH 


• * * . 

S . ♦ IF * • T CALL PREPRD(RGPM, 

f CONOPTL2 AY f HOUR ,OPV , PROVPEP 

♦I . EQ. 1 ♦ 

I * . ^ _ _ 

j ^ | + ♦♦♦♦♦♦♦♦ 


O R HP , D 


« * * . 

. ♦ I F * . T 

♦ PEP • GT . *♦+++ 

♦ 0.0 * 

♦ • . ' . * 

* . * 

FI 



. * * . 

. » IF * . T 

* OF US .GT *♦♦♦♦ 

*. c.o * 

* « • ^ 

F I * 


GO TO 159 


. ♦ ♦ . 

. * IF * T 

* IFS .GT. ♦♦♦♦♦ 

* 0.0 * 

• • ♦ 

* . * 
f I 


GO TO 170 


. ♦ * . 

j. ♦ IF 4 * T 

* ! NRTRl .G ♦ 

♦T. 0 ♦ 

! * . . * 

T F 1 * ' " 


.. GO TO .172 


I TRHF =0.0 

r 


•. C-95 



GU TO 101 


r ■ / 


♦ 
♦ 
> 
♦ : 
♦ 
4 ' 
♦ 
♦ 
♦ 
4 
♦i 
♦ 
♦ 


. * * . 

. ♦ _ IF * . I 
♦ RHFO .GT *4444 

♦. 0.0 ' * 

• . • * 


♦ ♦ 
F 


♦ 

♦ 

f 

4 : 

♦ 

♦ c 

157 : 

♦ 

♦ 

f 

.■■■♦ 

4 
♦ ■ 

♦ 

♦ 

♦ 

♦ 

* : 

♦; 


lie* | 


RAINFALL UPPER ZONE INTERACTION 

I 


. * * . 

. * IF * 

* PEP -.GE. 

* VINTCR 

* . * 

F 



UZS =UZS4PEP*TPIR 

V . F. 

• ii 

VINTCR = V I NT CR— PEP . - 

' : . r .. :S 

PPI =0.0 

. ' . . •• . V ■. | 

PEBI =0.0 

: ' ' • | 

PMEUZS = PEP 

. . ; : ; ' | 

| - ‘ - -V 

* ... i* i t 


■ 4 

♦ 
♦ 
♦ 

■ .■ .4 

♦ 

4 

♦ 

4 

4 

• • *: 

158 ♦ 
♦ 
.4 
4 
4 

::: 4 

4 

4 

*4 

4 

•• ■ '4 

•4 

4 

t 

4 

> 

4 

4 


• * * . 

. * IF ♦ 

♦ OF US .GT 

♦ • 0.0 

* . . ♦ 
♦ . ♦ 

F 


T 

44444 

* '■ 


. GO .TO- 159- 


1170 | 

' I 






PPI =PEP— VI NTCR 
UZS = UZS«-VIimTCR*TPIR 
VINTCR =0.0 
LZSR =LZS/LZC 

UZC ~SUZC*AEX90*BUZC*EXP t-2. 7 
♦ LZSR) 


it 


4 

4 

4 : .•••; 

4 

4 

♦ I 

4 ' ■ 1 : 

4 

4 

4 

4 

4 
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f 
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LOWER ZONE AND GROUNDWATER INFILTRATION 


-LZS/LZC 

= 4 . an z sr 


. * IF * . T 

I* LZSR . LE *♦♦♦ + 

1*0 , ♦ 

i * . . ♦ 

* • * 


GO TO 160 


1 E ID -4 • 0+2 • 0*( LZSR- 1 • 0) 


• ♦ ♦ 

. ♦ IF * • T 

* LZSR .LE *♦+♦♦ 

*. 2.0 * 

* . . * 



2 _£ I 0 = 6 . 0 _ _ 

- j — 

1 PEBI =PEBI+OFUS 


CMIR = 0. 25*S I AM*3MTR / ( 2. 0** EID I 
CIVM =BIVI-*2.0«'*LZSR 



. * * . 

• * IF * . T 
|* CIVM .LT »♦♦♦♦ 

*. 1.0 ♦ 

* . . * 

i t]* 



I PEA I ^PEBftPEei/(2.0^CMIRmv^) 
I WI = P E B l * P E B l / ( 2v0 *CM I R ) 


\ • ^ • 
i . * IF * . T 

♦ P6BF.GE + 

♦. CMIR * 

! * . . * 

* . * 

F 


WI * PEBI - 0.5*CMIR 


. * * 

. * IF * . T PE A I = PEBI - 0.5*CMIR* 

♦ PEBI .GE *♦♦♦♦ CIVM 

* . CM IR*C I VM * 

I ■ 

F I * ~ ♦ 







fi • 


S ; kj 


4 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

4 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

161 4 
♦ 
♦ 
♦ 
4 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
4 
4 
♦ 

4 ' 

4 

; . 

4 

4 

4 

4 

162 4 
4 

- ' 't 

163 ♦ 

: 4 i 

4 

... 4 

"4 
■ 4 

4 

■■■ . 4 

4 

4 

-:■■■* 

' 4 
4 
4 
4 
4 
4 
4 
4 
4 
4 

; 

i 

4 

4 

4 

4 

' 4 
4 


| WE I F$~ W l — PEA I 


. * * . 

• 4 IF 

♦ PEBI .L6 

*. CFOS 


♦ - -- 


♦ . * 

F 



PMELZS = (PEBI-wn*( (PErU-OFUS) 
/PED I ) 

PMEIFS -= W E l F S * ( ( PEBl-OFUS ) / P E 3 1 ) 
PMEOFS -PE A I * ( ( Pfc B I -CJFUS ) / P E 6 I ) 


I 


CONTINUE 


• * * ♦ . + 

. .♦* - IF * *- 

♦ (PEA I - 

*OFU$l . GT • 0.0 

♦ . . * 
* * ♦ 

F 


-T— - 

■V4444 

4 


GO TO 162 


| EQD ( 0 FUS 4 PEA I ) / 2 .0 


1163 | 


I ECD_-EgOF4 NPtAI -OFUS I 440.. 6 ) - 

i . — — - 

. * * . 

. * IF ♦ . T 

♦ (OFUS 4 *444 4 

♦PEA!) .GT. (2.0*EQ0* 

6 ) , 

♦ . . ♦ - 

f i * nr™:" ; 

44444 ♦44 4 4444 44444444 4 444444 4 4 


E QO ^ 0 . 5 * ( OF US 4 - P E A I ) 




• * * - * * - - — 

. * if * • : t - 

♦ (OF US ‘4^, *4444 

*PEA t| .LE. 0 . 001 - - ** - - 

♦ . . * 

* . ♦ 

F 


GO TO 164 


OFR = 0 . 25 *OFRF* ( I ( QFUS 4 PEA I 1 * 0 . 5 ) 
♦* 1 . 67 i*( ( 1 . 040 . 6 * ( (OFUS 

PEAI 1 / ( 2 . 0 *EQ 0 V ) ** 3 . 0 ) *♦ l .671 


i . 


T 

*4444 

* 


QFR 3? 0.75*PIA1 


. * * . 

. ♦ IF * 

* GFR .GT. 

♦ 1 0.75* PE AN 

* . . * 

* . * 

F I 4 

4 4 444 44 4444444444444444444444 4 


r^QQ 


ti 

164 + 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 

i6 5 : ! 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ . 
♦ 
> 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦l 

... ♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

166 ♦ 

' >i 
■ ■ ■ 4! 

167 ♦ 
♦ 
♦ 

. > 
f 
♦ 
♦ 
♦ 
f 

• ♦ 
♦ 

■ ■ .' ■ : * 

■ . f 

♦ 

> 

♦ 

■ ♦ 
♦l 


' ■ ♦! 

. . M 

♦ 

. ♦ 
♦ 

♦ 

* ♦ 
♦ 
♦ 

5 

s 

♦!.. 

♦ 

168 ♦ 
♦ 
♦ 

* 

♦ 


. • ^ * • 

• ♦ IF * . T 
rn F I MP . EQ ♦♦♦*♦ 

•• 0*0 ^ ♦ 

• . . * 

ti* 



| PEIS =opi*QFIjSiS 


• $ . * • 

. * IF * . T 

m: (PEIS - ♦♦♦♦♦ 

4QFUSIS) .GT* 0.0 * 

♦ * • . ■4' 

t I ! * 


GO TO 166 


I t QD I S - ( C F L S l S ♦ P E 1 S ) / 2.0 


1167 I 


| EGDI S=EQDP IS* (■ ( PE IS-OFUS IS ) **0.6) 


. * * . 

. * IF * . T EQD1S = 0.5* I OFUS IS ♦ P 

* (OFUS IS *♦♦♦♦ El SI 

*♦ PEIS) .GT. ( 2. 0*E* 

♦QCISJ * , 

* . . * 

* ;* 

FI ♦ 


• * ^ ■ ... 

. * IF * . T 
* < OFUS IS *>♦♦♦ 

*♦ PEIS) .LE. 0.01 ♦ — 

♦ . . * 


GO TO 168 


» * sJi r * v ^ 


0FRIS=0.25*DFRFIS*(( (OFUSIS+PE IS ) 

*0.5 1**1 . 67 }*( ( 1 .0*0. 6*( ( 

OFUS IS ♦ PE I S I I ( 2 .0*EQDF I SI )** 


l.Ol**l.< 


- ■■■■» * * . 

. * IF * . 1 

* OFRIS .G *♦♦♦♦ 

*T . PEIS * 

* . . * 

♦ . * - 

F I 


OFRIS = PEIS 


TOFR =TOFR*FPER*OFR*FIMP*OFRIS 
♦PP I *FWTR 

OFUS I S = PE t S -OFR I S 
OFUS -PEAI-OFR 


m? TS 


^C-99 





I 


4 
. 4 
♦ 
4 
♦ 
4 
4 
4 
4 
4 
4 

174 4 
4 
4 
4 
■ 4 
4 
4 
4 
4 
4 
4 
4 


X\ 


4 
4 
4 

175 4 

4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
. 4 
4 
4 

, . 4 

■ ■ 4 

4 

4 

4 


. ♦ ♦ « 
• * IF 

* PRO .NE. 

• 4 . 

.4 jji • " ' a 

♦ a * 

F 



| UHFA(l) = URHF 
— - 


173 4 
4 

7 TRHF =0.0 

1 KTRI =NCTR! 



-4 

4 

4 

... .. 




KTRI = NC5TRI 


• * * • 

. ♦ IF * . T 

♦ CONQPT ( 1 *444 4 I 

♦31 .EQ. i * 

♦ • : • ♦ 

* . * 

F ♦ 

1 


I URHF =UHFA£KTR I > 

....... 

* IF * . T 

*i URHF .LE *♦♦♦> 

*i 0.0 * 

* . . * 

* . * 

r f 



| TRHF =TRHF*URHF*JC.IRI (KTRI I 


I 


. ♦ ♦ • 

. ♦ IF ♦ . T 

♦ l: CONQPT ( 1 H + f + 

*31 *EQ • 1 .AND, LSH* 

♦FT .AND. KTRI .GE. * 

♦ a . * 

♦ . ♦ 


TRHF = TRHF 4 


f ... 

■ * S A T R 1 1 


URHF*SAtRl (KTRI - 1) 
jjHFAtKTR I ^ ♦ 11 = URHF . ■ ■ , 

77 7 7 T 


176 ♦ 

4 

4 

4 

. ♦ 

■4 • 

. 4 

4 
4 
4 
4 
4 
4 


UHFA (KTR I 4 11 = 0.0 

I -I : ; r.^-L 


I kTRj^=KTRI-l 

... 


• ♦ ♦ a 

. ♦ IF 

♦ KTRI .GE 

♦ .1 

♦ . 

It V 


T 

♦4 4 4' 4. 

4 


GO TO 174 


ORIGINAL 

OF poou 


IS 


•C-101 


i :c i 


178 *♦ 

♦ 

♦ 

* ♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

■ ♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

> 

♦ 

:* 

♦ 

♦ 

♦ 

179 ♦ 

♦ 

♦ 

♦ . 

♦ 

♦ , 
♦ * 
♦ 

♦ 

f 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

180 * 

♦ 

♦ 

181 t 

. > : 

♦ 

♦ 

♦ 

' * ♦ . - 

♦ 

f 

f 

♦ 

. ♦ I 

♦ ! 

♦ i 

♦ I 

♦ 

♦ 

♦ 

f 

♦ 

♦ 

* 

♦ 

* ♦ 

• J 
♦ 

♦ 

♦ 

♦ 

V * 

♦ 

♦ 

♦ 

> 

. 


• * ♦ . 

• • IF * . T 

♦ URHF .LE ****■♦ 

♦ • C.O * 

* •;■■■■■■■ * - ' 

IV 



| NRTRI=NCTR^ 


. * * . 

• * IF * . T NRTRI = MXTRi 

♦ CONOPTU *♦♦♦♦ 

•3) • EG . l ^ * 

* . . * 

* . * 

F j ♦ 


NRTRI=NRTRI- 1 
UHFA(l) =0.0 


• * * * 

• ♦ IF * 
* CONOPTU 

*31 #NE* 1 

* . . * 

F I * 


T 

♦ 


GO TO 180 


1 NNSTRI “NCSTRlFi 
I UHFA i NNSTRI 1 =0.0 


| URHF =0.0 


• * * • 

• * IF * . T SRX = CSRX 

* SRX .LE. *+++♦ 

* CSRX * 

* • * * 

F ] - 



| RHFl -TRHt-'-SRX*( FRHF-RHfOl 
I RHFO -RHFl 


rhfo = 0.0 


• * * • 

• * IF • . T RHFO = 0.0 

*! RHrO .LT ♦ + 

rhfkc ♦ 

* . . * v .V + ' -r 

* ♦ * 

F j ♦ 


|| TFCFS=(<#.0*KHFUCeF-HSE)*WCFS 


• ♦ * . 

! • *: •: IF * . T 

* CONOPTU ♦ ♦♦♦♦ 

*31 .NE. 1 * 

♦ . . * 

?r • ■ 


GO TO 182 




r 

? 


. ♦ * . 

. * IF * . T 

♦ CONOPTU ♦++** 

♦ 2) .EG. I • AND • PRO* 

♦ .NE. 4 * 

* • • * 

I F I * 



♦ 

182 ♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ I 

♦ 

♦ 

♦ 

- ♦ 

♦ 

♦ 

♦ 

• :♦-• 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

+ 

♦ 

♦ 

♦ 

+ 



4 

• + 

♦ 

+ | 

. :.-4i • 

♦ 

♦ 

♦ 

•• V 

♦ 

+ 

♦ 

4 

♦ 

♦ 

4 

♦ 

4 

' 4 
♦ 

4 

4 

♦ 

♦ 

•.-•■ .4 • 

♦ 


[CALL RTVARY (CTR I ♦ SATRI , QTR I « CMC AP * NBT R 1 1 M XT R 1 t NG ST Rl * EXQ P V « L SHF T * 
! TFCFS ) 

I I ... 

| CATE = MOD (DAY f MO AY ) j 


• ♦ IF * 

* LSHFT 

♦ . T .* 

♦ , * 

F I 


I • 8HELEMENTS) 
CONTINUE . 


• . * * ♦ 
i • * IF * 

• TFCFS .L 
♦E. 0.5*CHCAP 

* . . ♦ 

l i * 


T WRITE! 6f 6) DATE ,HOUR f PR 

♦+++ + Of NCSTR I 


FORM AT 6 FORMAT I2X , 1 2 • 2 X * 1 2 f 2X , ! 2 
• 2X 1 2 OHH I $ T OG R A M C HANG E S T 0 ♦ 1 X » 1 2 « 1 X * 



T 

♦ +4 + + 

♦ 


• ’ i ♦ * • 

• * IF * • T SRX = CSRX 

♦ (TFCFS . ♦++++ 

*GT • 0*5*CHCAP ) • AND* - ■ - 

♦ . (TFCFS .LT. 2 . 0*C* *.*....■•■♦ 

♦ • • ♦ - 

* * — — ™~ 

F * 

I +♦++++ 44 44+44 4 44 +4 4 4 +4 44+4++++ 

♦ ( F5RX y CSRX ) * ( (TFCFS - 0 • 5 *C HC AP ) / ( L • 5 *CHC APT ) * ♦ 3 

I . * * * . “ ^ ~ 

• ♦ IF ♦ . T SRX = FSRX 

.♦ TFCFS .0 ♦ + + + + 

*T • 2*0*CHC AP * 

♦ . -* * ♦ * • - . 

* ♦ ♦ - r— “ — 

F I + 

j | +444+4 4++ 4 + + + + 4 4 + 4+ + + + ++ + ++++ + 



i ■ • * * a 

‘ ♦ IF 

♦ TFCFS .L 

♦E. TFMAX 


* ♦ T 

♦ +++ + 



♦ 

F 


I PROF "PRO J 

I TDFP24 =HOUR | 




• * * « 
. * IF 

♦ PRD .LE. 

♦ 3 

* . 

F I 


T 

♦ + 4 + 4 

♦ 


TDFP24 = (TDFP2A 
+ 0* 15*PRDF 


C-103 


♦ 

' 4 

f 

4 

183 ♦ 
♦ 
4 
♦ 
♦ 
♦ 

18A ♦ 
4 
4 
♦ 
♦ 
4 
♦ 
4 
♦ 
♦ 
♦ 
4 
f 
4 
4 
4 
♦ 
♦ 
4 
4 
♦ 
4 
♦ 
♦ 
♦ 
4 
♦ 
4 
♦ 
4 


♦ 

♦ 

♦ 

♦ 

4 

♦ 

4 

■4. 

♦ 

♦ 

♦ 

. 4: 

♦ 

4 

♦ 

♦ 

♦ 

♦ 

♦ 

4 

4 

4 

♦ 

4 

4 

4 

4 


| TFMAX=TFCPS 

“ 


| A RHF = ARP F *R H F l 

STORM OUTPUT REQUESTED BY CONOPT(l) 

I 


. * * • 
. ♦ IF 

* CONOPT ( t 

♦) .NE. I 

♦ # « 
* . 4 


F 


• * * , 
• * IF 

* DAY .NE. 

* CDSDR 

v 4 * • 

♦ * * 

F 


4 

4. 

41 


4 

4 




•. ! -ii v*. /*..*• 


• * * . 

►4 IF 4 . 

HOUR . EQ 
1 .AND. PRO .EQ. 


T 

4^444 

4 

4 


WRITE (6, 7) 


. • \ *.♦ 

! F I + 

I 44 44'4'4 44 4 4444 4 4444 4 4 4 4 444 44444 

FORMAT 7 FOR MAT « l H / / , Z IX ♦ 19 H R A INF ALL 
DEPOSITION, 12 X t L6HM0I STUFF STORACEf 
1 4 X » 1 7 H S J R E A M F L 0 W OR l G IN, 6X , 14HSTRE AM OUTFLQ W/2X , 1 l 6HDY HR PD RA 
IN EUZS tL Z S EIFS EOFS UZS LZS IPS OFS S 

PCF SPIF SPBF SPTF INCHES CFS ) 


| DATE = MGO { D AY » HD AY ) 


I 


OFS = OFUS*FP FR+OFUS I S*F I MP 

SPGF = 0 FR*FP ER *0 FR IS.*F I MP 4 P P I * F WTR 

SPBF =0.25* ( CBF-HSE) 

SPTF =SPDR4SPBF 
SPOR =0.0 


.* * . 

. ♦ IF * . T 

* RHFO .LE 44444 

♦. 0.0 ♦ 

: * . . * 

* * 

F ♦ 

1444444444444444444444444444444 


TFCFS = 1CB.F ~ HSE)>WCF 




4 
4 
♦ 

4 
♦ 

4 

4 4 

4 4 

♦ 4ZS 

4 4 — 

4 

4 « 

4 

4 

4 


| R$PTF=0. 25*T FCFS/WCFS 


WRITE <6, 8) ♦ 

C AT84HOUR ♦ PRO , PEP > PMEUZSt PMEL.ZS , PMEIFS , PMEQFS , U+ 

, LZS > 


tIFS 
F7.1) 


t CFS f 1 


PCF, SPIF, SPBF, SPTF, «SPTF, TFCFS ' . 

FORMAT 8 FORMAT I2X, 12, IX, 1 2, IX, II 
• ,51 tX,F6.4),2X,4tF?.4l ,2X,5( 1X.F6.4) ,IX, 


C-104 




♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

' ' ♦ 

185 t 
♦ 
♦ 
♦ 
♦ 
> 
♦ 
♦ 
+ 
♦ 
♦ 
4 - 
♦ 
♦ 
♦ 

186 ♦ 


• ♦ * . 
IF 

HOUR .EQ 
.AND, PRD 


♦ . T 

♦ EQ.# 

* 

♦ 


GO TO 


NDSCP=NOSOP+ 1 


T 

* 


4 * * - 

♦ IF 
NDSDR • E 

NDSDP 

♦ • 


CALL t?AYNXT(CDSDR»DPY J 


GO TO 


CCNTINUE 


• * ♦ - 
. * IF * 

* VINTCR . 

*LT. 0.25*VINTMR 

♦ . . * 

Ti * 


T 

* 


VINTCR = VINTCR 
DAY ) / 96 • 0 


DP ET C 


HOURLY OVERLAND FLOW AND RAINFALL SORTING 

I 


187 4*4 4++++CCNT I NUE 

, ♦ C END OF 15 MINUTE LOOP 

t I 

' = ♦ ■■■ j 

... ♦ ♦ ♦ • 

♦ . * IF * . T 

♦ :■!■ ♦ CONOPT ( 5 ♦♦+♦> 

♦ ♦) .NE. 1 * 

♦ ; * • • * 

: r i 

♦ C HOURLY OVERLAND FLOW 

: i 

♦ 

♦ . * * • 

♦ . ♦ IF * . 

♦ ♦ TOFR .LE 

♦ ♦• 0.0 

♦ * . . * 

♦ ♦ . * 

: ; : M 

♦ T KT20 =20 

t j 

188 4 

♦ • ^ * • 

♦ . ♦ IF * . 

♦ ♦ KT20 .LT 

♦ I , 

♦ * • • * 

♦ * t * 

: M 



* * IF* * 

TOFR .LE 


T 

♦ 


GO TO 


| KT20_=20 _ _ _ __ _ i 

i 


T 

* 


GO TO 192 


• C-105 


i 

I 


♦ 

♦ 

4 

4 

♦ 

♦ 

♦ 

♦ 

... 4 
♦ 

■ 4 

4 

♦ ! 
♦ 

'■ ' • 4 ' 

. ♦ j 

189 

■ : 4 : 

• 4 
>: 

' 4 
' 4 
♦ 

190 4 j 

■ :i 

4 : 

: * 

' > . ' : 

* 4 : 

♦ : 
4 

191 4 
♦ 

4; 

4 

4: 

♦ 

' 4 

4 

: 4 

192 4 
♦ 

♦ ' 

193 ♦ 

♦ 

♦ 

4 

4. 

- •• ♦: 

,4i 

♦I 

r. 4i 

•4: 

♦ 

<4 

• ■ 4 

.♦I 

194 ♦’ 

.. ••.#?•••• 
v .v''4i 
•4; 

4: 

4. 

♦ 

4 

4 

•• • .••'.•41 • 
. - -41. 

4 

• I 

.. .4. 

4 

'■ 4 

♦ 

♦ 

♦ 

♦ 


• ♦ ■ ♦ . 
• ♦ IF 

♦ TOFR .GT 

* • T200F.H i K T 20) 


T 

*4444 

* 



T200FHC 'K.T20+ 1 ) - T200FH(KT2C 


T200FH( KT20+1) = TOFR 


| KT2C = K T 2 0- 1 


I T200FH ( l ) -TOFR 


• * * , 
IF 

PRH .LE. 


T 

♦ 4444 

* 


| KT2C =20 


• * • * . 

IF 

KT20 •LT 


T 

*4444 

* -v.r.w ■ 




. * * , 
. ♦ IF 

PRH .GT*' 
T20PRH ( KT20 ) 

* . 

i 1 * 


T20PRHIKT|0 4.1): 


T 

*4444 

* 




71^7 T 


T20PRHIKT20+1.) 


= T20PRHIKT20I 


I KT 20 =KT2C-l 


1 19* | 


I T 20PRH ( 1 ) = PRH 


ADOING GROUNDWATER PLOW 


CBF = G V. S * 8 F R L * ( l * 0 *■ B F N R L* BFNX ) 
GW'S =GWS-CB F 
AMBF = AFBF +C BF 
.THGR = ARKF *C BF 


« ^ • 

IF * . T HSE = THGR 

* HSE .GT. *++♦♦ 

* THGR * 

* . . * 

— 

: F 1 ♦ 


AHSE = AMS b+HS F 

THSPI HOUR ) ^ (THGR-HSEI *KCFS 

TDSF =TDSF*THSF( HOUR ) 


STORE SIMULATED HOURLY STREAM FLOWS 


DRAINING OF UPPER ZONE STORAGE 

l 


| SINDEX = 3 I ND EX + l 

I ”~ 

THSFO(SINOEX,n=THSF(HOUR) 


1 UZINFX = ( UZS /UZC )— I L ZS/LZC ) 

_ - 


• * ♦ . 

P . * IF * 

♦ UZINFX . 

•IE. 0.0 

♦ . . ♦ 
* t * 

r-r- ■ f | 


T 

* 


GO TO 198 


IZSR =LZS/LZC 

UZ I NLZ - 0. JO 3» BMl R*UZOUZ I NFX* 

*3.0 


C-107 


i t ') 

53 - ■ S : 1 


♦ 

¥ ■ 

-> , 

, ♦ 

: ♦ i 

♦ 

♦ 

: i 

¥ 

¥ 

♦ 

♦ 

♦ 

♦ 

♦ i ' 

♦ i 

¥ . 

♦ i 

♦ ..! 

♦ 

. ' ♦ 

♦ ' 
♦ ! 

. . .. ¥ . ■ 

■ { 

' ¥ ' ! 

■ ♦ 

' ♦ : 

f I 
♦ 

♦ 

♦ 

¥ 

¥ 

¥ 

¥ C 
♦ 

198 ♦ I 
♦ 

¥.. 

: i 

' ♦ i 

♦ -i 

♦ .... 1 
♦ . ! ' 

. : j 

♦ ] 

♦ V 

♦ " 


• * * • 

. ♦ IF * . T UZINLZ = UZ 

* UZINLZ . •++*+ 

*GT • UZS * 

♦ • . * 

♦ . ♦ 

F I ♦ 

\¥¥¥¥ ¥¥¥■¥¥¥ ¥¥¥ ¥¥¥¥¥¥* ++♦++++>»+ 



UZS =UZS-UZ I NLZ 

LZRX « 1 • 5 * A8 S ( L ZS R- 1 • 0 I ♦ 1*0 

FHK ■ l.O/( l • 0 > L ZR X ) ) * * L ZR X 


- 4 - 


m * * . 

• * IF * • T FMR = 1.0 - 

* LZS • LT • *++♦♦ 

♦ LZC * 

* . . * 

+♦+♦♦♦ ♦ ♦ + ¥¥f ¥¥¥¥¥¥¥ +**++**+*+ f 



PGW = ( l • 0-FMR ) ♦UZINLZ* ( X .0-SUBWF ) 

— -*FP Frl - - 

PLZS - F M R * U Z IMZ 
LZS = LZS + PL ZS 
GW S =GWS + PGW 
BFNX =BFNX*PGW 


4 PH ADJUSTMENTS OF VARIOUS VALUES 


5 .. . ..* • * * • 

• * IF * . T GO TO 202 

♦ HOUR .NE +¥¥¥¥ — 

♦. 16 * 

* • ^ " * - • *“♦ ■ — *» *- - * " *-.** *■ - ' ^ ~ ~ 


| -AEX90=0.9*( AEX90+P6T ) 

I AEX96=0.96*( AEX9o4PET) 


INFILTRATION CORRECT I CN 


|| SIAM -<AEX96/AETX)**$IAC 


• * IF ♦ . T SIAM = 0.33 

*L .SIAM .LT *+*¥+ 

♦ I. 0.33 ♦ 

* . . * 

r ♦ ; * — 

; : | F | 

" I ¥¥¥¥¥■¥¥¥¥¥¥¥¥¥¥¥¥¥¥ *¥+¥¥¥¥¥¥¥ ¥ 


| BFNX -0.97*BFNX 




. * * 

. * IF 

♦ PET • EG« 

* C.C 

* # 

F 1 * 


* . T 

♦ ♦HI 

♦ 

• W- 


GO TO 202 


i 


C-108 


4! 

♦ C 
♦1 

EVAjP-TRANS 

♦1 


♦s 

4> 

| C*ET fei 

4i 

4 

GWS = < 
; 1 BFNX = 

♦ 




♦i 

a , 


♦ 

1 . .! . * 


• * 


199 ♦ 
♦ 


• * IF * . T BFNX = 0.0 

* BFNX .LT 

♦. 0.0 ♦ 

♦ . * * . * _ __ 


| AHPET= APPET+ PEf 

- . 


*• * IF ♦ * T 

♦ PET .GE. *♦♦♦♦ 

* UZS * 

* . . * 

F I 


GO TO 199 


I UZS = UZ S-PE T 
I AMNETsAMNtr+P 


AMNEp=A:MNET+PET 

J“ 

Ti02* I 


• I 


>r ■ : - - - 

I 1 

PET 

= PET-UZ. S 


AHNET 

= AMNBT+UZS 


UZS 

= 0.0 

' ■■■ 

LZ SR 

=LZS/LZC 



t 

■- ' • ♦ 

:♦ 

.4 

:o;t 

' 4 

♦ 

♦ 

200 | 
" t 
201 t 


. * * 

^ ♦ IF 

♦ PET .GE, 

♦ ETLF*LZSR 

♦ . 

* I 


* . T 

*♦+♦♦ 

* 

* 



SET =PET*(1. O-PET/ ( 2. 0*ETI F*L ZS R 1) 


1201 | 


1 S SI • 5 *ET L F *L Z SR 

i 


LZS = LZ S-5E T 
AMNET=AMNEr+SET 


202 ♦♦♦♦♦♦♦♦CONTINUE 





CONTINUE 


I date -day 


• ♦ * . 

* * IF * • T OAT E= MOD (DA 

♦ (MONTH. E *4444 

*0.4) .AND. ( MCAY • EQ. 3* 

♦ U * 

* . . * 

♦ . * 

F | > 


. * IF ♦ . T OAT E=HOD (D A 

♦ MONTH. NE *4444 

♦ .4 * 

* • * * 

F 1 -- 

144+444444 444444444444444444444 




4 WRITE (6, 9) 

4 CATE, (THSF (HOUR) ,H0UR=I, 121 


FORMAT 9 FORMAT MR/ .IX/* IX * 1 4 » 2X , 
| 2 H A K • 1 X , 6F 8 • l • 3 X 1 6 f 8 • I ) 

4 ~WR ITE (6,10) * * 4 

4 (THSF ( HOUR ) t HCUR-13 t24 ) • DSSF (DAY) 4 

' 4 .. ■ . . . .. "4 

^ 4 . . • 4 


FORMAT 10 FORMAT ( IH J , 6X t 2HPM t IX, 
6F8 • 1 ,3 X , 7 FB • l ) 


. ♦ ♦ . 

• ♦ IF * . T 

* TDFP24 . ♦4444 

* LT • 12.0 ♦ 

, f i 


GO TO 205- 


I TDFP12 = TDFP 24-r 12.0 
— - 


4HP.M.I, 


FORMAT 11 FORMAT I-IH/ i 10X* 8HMAXl ‘^UM = 
ltf.8., 1 . * 2X,6HC .F .S . ,5X,4HT|M£ ,3X f F5.2 ,2X, 


1206 I 


CONTINUE 


FORMAT 12 FORMAT CIM/.IOX. 8HMAXI«UM^ 
... ... , . .tF8.1>2X, 6HC »F.S« > 5Xt 4HT t ME, 3X t F5«?»2Xt AHA.M.l 


WRlTE(6,t3)DATEf 


• ♦ ♦ . 

. * IF ♦ . T WR I TEI6, 13 ) DATE* 

* CQNOPT ( 7 44444 

•) .EQ. I .AND. SDEP ♦ 

♦TH .GT. 0.0 ♦ 

♦ . . 4* 

♦ • ♦ * 

F 1 4 

I 444^44 4 44444 4 444444 4 ♦ + 4 4 44444+ 

SDtPTH , STMD , SAX tTANSM , SPLW 

FORMAT 13 FORMATtaX. IAt2X, 7HSDEPTH* 
« F t* 2 , 2Xt 5HSTMfj» ,F h . 2 , 2 X , AM S AX - » Ph * 2 1 

2X* 6HTANSM= , F6.2, 2X» 5HSPLW* , F6 .2 I 


c-lll 


MAXI -MAXi+l 
MPDAY (MAXI ) = DATE 


. I 

C MONTHLY SUMMARY STORAGE 

ST MR 05 ( MAX 1,1) =DSS F ( DAY ) 


TMSTF ( MAX I ? l ) = AMS IF 
AM ST F= C • 0 

T MRT F ( MONTH) =AMRTF 
AMRIF-O.O 


6MBFNX (MAX I ♦ 1 ) =BFNX 

TM PR EC (MAX 1,1 l=AMPREC 

I 1 


AMPREC =0.0 
1 MKPM( MONTH) = A MR PM 
A MR PM =0,0: 

TMBF ( MAXI, L I -AMBF 
AMBF =0.0 

TM IF (MAX I , 1 ) =AM IF 
AM IF =0.0! 

T M S E ( M A X 1 , 1) =AMSE 
AMSf = 0.0 

TMPET (MONTH I = AMPET 
AMPET=0. 0 

T MNET ( MONTH ) » AM.NET 
AMNET=0. 0 

TMSNE ( MONTH ) = AMSNE 
AMSNE=0. 0 


‘ I ; - 

TMFS IL ( MONTH) = AMFS1L - 

I AMFSIL =0.0 

EMGViS ( MAX 1,1) =GWS 
UZC = S U Z C* A E X 90 ♦ BU Z C * EX P ( -2 • 7 
♦LZS/LZC I 


UZC = 0.25 


* ♦ . 

• ♦ IF * . T 

♦ UZC •LT. 

* 0.25 * 

♦ • • ♦ 

; * . * 

F I ♦ 

1 * f ++4*444 4*4 = 4 


EHUZC(MAXT,1) =uzc 
EMUZS ( MAXI ,1) =UZS 


EMS;I AM ( M T , li=S I AM 


I EMLZS (MAX 1 , 1 j =LZS 
I EM IPS ( MAX JL .1 = IFS 

T 

CONTINUE 


I 


• ♦ IF 

♦ MOAY.EQ 

♦337 

♦ . 

* . ♦ 
F 


T 

*4444 

* . 


MDA Y=59 


j '4 4 44 4.4 


♦4 4 ♦♦ f f f *♦ ♦>+ f ♦ f f f ♦ ♦♦ ♦ 


1 : 


C STORE MAX I HUH DAILY STREAM FLOW FOR YEAR 

I 


| TFHAXY ( MAX I ) -TFMAX 
- 

CONTINUE 


. * ♦ • 

. ♦ IF ♦ . T 

* CAY. 60. E 

•DATE * * 

• . . ♦ 

* . * 


GO TO 3002 


CALL DAYNXT (DAY 9 DPY ) 

• * ^ • 

V ♦ IF * . T MDAY= LDAY 

♦ CAY.GT.L ♦♦♦+♦ 

♦CAY * / 

♦ . : . ♦ 

* • * 

F | ■ r ♦ 

*•*'♦«. 

* ♦IF ♦ . T ¥ 0 AY =337 

♦ CAY.E0.3 - 

♦ 66 * 

♦ • . .♦:-. 

* ♦ 

F ] t 

I + + ♦ ♦♦ ♦ ♦ ♦♦♦♦♦♦♦♦ 


1 152 I 


• ♦ ♦ . . 

. ♦ IF • . T 
♦ CONOPT ( i ♦♦♦♦♦ 

♦6J.EQ.0 . * 

i : * . . ♦ ' 

* , * 

: ■* F l ‘ 


GO TO 221 


BACKSPACE jil 

**~Zr i ri~ 7 rt i 

♦ (RPLCTCU ) tl=lf 1832) 


♦ 




+ 

♦ 

' ♦ 

♦ 

— ♦ 


BACKSPACE jl 8 

♦*~WRITE (13) 

♦ (RCCFHA ( n 9 l — X • 12 387) 




.* 

♦ 

♦ 

♦ 

♦ 

— ♦ 


C END OF DAY LCGP 


CENT INUE 


RETURN 





SUBROUT INE OUTPUT (DlFFSjOlFFMP.niFKP.O I FFMP, SUM, DIFFR.PIFFRP, 


APREC jOI FFPR tOl FPP *QOUT , UMAX.PHRO, MSBDIC « 
MPDAY ) 


COMMCN/PLUT C/DRSF, USS F, CONUPT* THSPO*TMSrF*STMROS( 121, 6) , DPY, T ITLF, 
KFllAG, IDFLAG, ' „ 

I ENDFG* S TUOY ( 2 ) »PEAKS , PHRS * NS PTS , THSFOM * T FMAXO, TMRTF , J PLOT, 

NCTKl ,CTR1 ,F IPR, R ICY *UPSf , HOOF SH, 5PUF LW , SPTWCC , SPM , ELO l P , 

XUNFS, rFOR, FPS i ,MkNS.M,OSMGH» PXCSA,kHPF,RGPM!>, AREA, F IMP , 

SATRI »UHFA, 

MNRO, 

FWTR, VI NTMR, BUZC , SUZC , LZC. , ETLF , SU8WF , GnETF , S I AC » 3M I K, 

BIVF » OFSS * QF5L *ClFMN , UPMN l S» I FR C , CSRX, F SP X, CHC \P , EXOPV » 

BFNLR, OFRC ,GWS ,UZS * L ZS , 9FNX » !FS, BFHRC , DFRL, BPNkL , BPNHR , IFPRC, 
IFRL*LSHFT , NBTRI , FNTR I . MXTRl , NCSTRI , B TR I ,TFCF S , EPA t T , PPER , 

TPLR, V I NT CR, fISE , NRT H t , $P I F » C5r , SPUR, t'FUS ,OFUS I S »t)F F. *I)PR I S , PEI S, 
RHFOv URHF , AM IF , AMKcT , AWPET , AMS lb , AMF S 1 1. , SAS R X , SARA X , SRX , VW IN, 
WCFStRHPMC, S SR.T , OFRP ,()FRF I S , cJOF « EUC-T I S , SOPRP, SOFRF I * 

SD6PTH ,MULT l , 1 1), ASM, WTAAM, WT*P M* S AX * T AN$M, SP TW , STMI), SFMO, ASMRG* 
OfcPbNO ( 2 ) , VAR I N ( 2) ,NP IS . JULD I , I Y R, TODAR Y ( 5,11, 

TOM ARY (7,1), TU S ARY ( 5 ,6, L I , T SO AR Y (6,1) , T3MAPY (8,1), 

TSSAKY (3,6, 1 1 t TSMCR Y(. 1 I * TSDCRY ( 1 ) , T SRAR Y( 1,6*1 > , 

TGRARYI 1,6, II 

i)KG“T ( 366 ) ,OSSFT(366 ) , MI , N l , MULT ,TMRTFT ( 1 2 ( ,TMSTFT U 2 ( 

COMMON/ COMMA/ EMBFNX, EMGWS, EMI FS, F.MLZS,E MS I AM, EMUZC , CMUZS , TMBF, 
TMIF,TMPKEC,TMSE,CRFMI .ODIW.DMNT ,DMxr,DKGPM.DRH°, ORSGP.UPET, EOLZS, 
EPCM, SERA , SERR , SES F , SwEK , THSP, TM TS I L, TFiNF.T ,TMOF ,TMP ET , TMRP A, TMSNE, 
TMSTF I , T 20 UrH, T 20PRH , TMRTF 1 , JULD AT, 

TfMAXY,UZC,AETX,r)AY,NSGR0,A6X90,SI AM, NDSDP ,RGP M.NDSDR * YRi • 

TRHF* 

S1NDEX, INDEX. AEX96. MAXI, YR2,BYLZS,BY!FS,BYUZS 


KENTUCKY WATERSHED MODEL (VERSION OF JUNE 6, 1970) 
BASED ON STANFORD WATERSHED MODELS III' G IV 


DIMENSION BT«I 1 99 ) , CONUPTI 16 I , CRFM l (22 ) , CTR 1 ( 99 ) ,00 1 W1366 1 , 
DMNTI366), 0MXT1366), DPS! (366 ), DRGPM(J66), URHP ( 366, 2*1 , 

DRSGP ( 366 ) , OPET ( 36ol, 0PSF1366I, DSSF( 366), EOLZSI 366) , 

EMBFNX( 15,3) ,EMGWS( 15,31 ,EMIFS( 15, 3) ,EMLZS< 15 , 31 ,EMS I AM ( 15,3) , 
EMUZC ( 15,3) . EMUZS l 15, 3) .EPCMI UJ.FIRRt 15) ,MtOCY( 12 ) , MFDWYI 12), 

R I CY ( 37 ) , SATRI (99 ) , SERAI 22 ) » SCkK(?2), SfcSP<?2), S0ER(2?(, 

THSF ( 2* ) , T 1 1 LEI L3 ) , T f’.BF ( 15 , 3 ) , TMFS IL t l 21 , TM I F 1 15 , 3 1 , TMNETl 12), 
TMOF 115,3), r M P c T 1 1 2 1 , T HP REG ( 15,31, TMRPMI 1 21, TMR Tf ( 12),TMSEI 15,3) , 
TMSNE( 12) , r MS TFT 15,?), TMSTFI I 15,3 ) , T23-TF HI 21 ) , T29PPHI21 ) , 

UHFAI99) .T.VRTFI t 12 ) , JULD A I ( 6 ) , THSrot 7AA, 3 ) ,7FMAXY ( 366) , 

PEAKSI6), PHRS I 6 1 *NSPTSt 6) , THSFOM I 61 


RE AL*8 MSVT 19) /• MOISTURE 1 »• STORAGE *,' VALUES • , 
• j T* , • ABLE 3 A •/ 


REAL*8 SUBTIll >/* ABLE 3A* , • ABLE 3BV,« 

• t • PAST RUN*, 'ABLE IA • , ‘ABLE IB *,' 3B 
• PAST •/ 

r ' 

REAL OQUT 1 15 ) , SUM! 3 I , APREC 1 37 , MSBD1C 

i 

INTEGER MPDAY ( 1 5 ) .TYPE , CONOPT 


PASTS* 3 A 
' , • MM ARY 


' ,'UES 


REAL** SCPAST I 36 )/ 1 8** 

• S I MU* , 'LATE' , '0 ' ,3*' 

•D •/ 

REAL** MSP ASTI 36 1/20* • 
•LATE', «D ',5*' • / 

t .. ... . ... ... 

REAL** SSPAST ( 3 6 i/21 * • 

• AT ED ' , ' 'DIFF'f 1 


! , 'HQSE', 'R-V-EO' 


• f- 'OaSE 1 , ' RVEO ' » ' 


* t •SI MU' , 'LATE' ,*0 


• , 1 S ! MU* , ' L ATE 1 , 


• t 5*,» 


S* SIMMS 


O' , • OSER;' , • VED S' S' f • I MUl • , 


' TO I F * , »E 


REAL*8 STSTC9) /'STORM SU • , • MMARY T A ' » ' Bit 2 ' ,6*' •/ 

REALMS STRMT(9)/'ST0RM CHS 'ARACTERI • ST1CS T f , • ABLE 1A S 

5f . V 

| I ' -■*+ *- — ;••• 

REAL*B STCHARI252)/* 'STORM CH • , * AR ACTER l • , • S TICS 

» 'FORECAST', • RUN T 1 , * ABLE 1A ',12*' ',' WORS', 

•T NO F/CA* , ' ST •,* ', 'WORST ','NU 

•F/CASr CASES' PRECS'IP ', 

2*' '.'CASE • ,'PRECIP ',9*' ',' ', 

• PRECS 

•IP S3*' S'PRECIP S3*' •»' SUR S 

197** •/ . , 


SUR *, 


C iC-114 


Jtf-AL +6 STCSP<l 97 -)/*R /0 

* t * SUR R /0 *, 


•ft 1 
• PL 1 
•R/n * 
P RFC* ,* IP 


, 3 ** 
> 3* 1 
, 3 ** 


•R/0 


• 3 ** 


r 3 * * 

• t 

• I NT FL 


* ini rL 
1 1 • HAS E FL * r 3* # 
1 » • STM R/0 1 » 3 * 1 

• , 'PRECIP • ,3** 

• t • SUR R/0 S3** 

• 1 NT • , f F L S 

BASE • t ■ FL S3* ' 

R/0 S3* 1 • , 1 

RFC S* IP S3** 

• R/0 • » 3* • S 

S3** S • I NT FL 

■•■BASE FL It 3** 
• t •STM R/0 S3** “ 


RE At * 8 ST SURD I 208 ) 


3* * _ ' S» INT 

• INT FL • ,3** 

• BASE FL S 3* • 

•STM R/O * » 3 * • 

* , ‘PRECIP • , 3** 

1 SUR P/0 S3*’ 

• t 3 * 1 1 - • 


S' 
S f 
1 1 9 * * 


RASE ' , 
STM •. 


' j ’ n a 

STM S * R/0 


S* INT 

BASES’ FL 


S # 

SUR • 


’ FL 


S’ SUR S 1 R /0 

3 ** X S • I NT FL S 3 * 

•••BASE FL • , 3 * • 

STM R/n S 3 * • • , 9 *' 

• , * PRLCI ? * , 3 * • 


P F t C 1 i * I P 


. 3 ** 


> 3 ** 


, 3 *' 


r 3 * * 


•SUR R /0 S 3 * • 
S 3 ** 


sIm s* 

S* p 
SUR • • 


STM 


Base* , • fl 


INT S • FL 


R /0 


S 3 ** 


f 3 *' 


T • f * RUN TAB 1 , 'LC 2 


/2* • *, •STORM SU' t 1 MM ARY F * t • ORFCAS 

- _ . - . -- ... S 13** S ' WORST ' , • NO • , *F/C 

AST S’OTFF S* SHIFT * f 4** S *CASE • f •PRECIP S H 

*• s*peak is'cfst: st** S9*> s 

•PEAK IS'HRI * • f 16* • S’R/O I 1 y * IN) S16*« 

•, 'PRECIP ( * , * IN ) 1 ,7** •/ 


RFAL *8 MSVARH ( 441 )/' 
•UES FORE* , * CAST RIJNS 1 


•WORST 

•PRECIP 

9 *i* 


i 

• I 

• t 

• j 

i 

: 


uzs 

LZS 
GWS 
BFNX 
SIAM*, 3** 
UZC 3* • 


- t 'WORST 
S 'NO 
S 2 *' 

S # 
S3** 
S3*' 
S3** 
S3*' 


IPS 


, *NU 
• , •F/CAST 
•♦•CASE 

• ,3*' 

• ♦ ? 

? 


• ♦ • MOTS • , * TUR E STO • f • RAGE VAX* * 
TABLE' t ' 3 A . *,10** * , 


IPS 

UZS 

LZS 

GWS 


,3*« 
f 3* * 
i 3*' 
> 3 *» 


BFNX ',3*' 
SIAM' ,3** 
UZC S3*' 


REAL* 8 MS VSUD ( 135)/ 


I 


a 

i 

a 
a 
a 
a 
a 

9* f 

M 

jl 


REAL 


i 3* ' 


i 3* • 


IPS 

uzs s 

LZS S 
GWS S3*' 
BFNX* ♦ 3* * 
Si AM S3* 1 
UZC • y 3* • 

IFS • » 3** 
UZS S3** 


LZS 


} 3* * 


GWS S3** 
BFNX* .3** 
SI AMS3*' 


UZC 


I 


,3** 


s? 
• ♦ ? 

• a! 

Sf 

• 1 1 

s 

a. r 


• t f 


S' 

s* 

*♦• 

* ♦ I 

* m " 


•a # 
; a ; 


* s 'F/CAST 

S 2* ' # f •.CASE 

• ♦ 'PRECIP • ,2*' 
ft ' IPS SA*' 
UZS • ,4*« f , 

LZS ' ,4* • S 

G W S • 9 A * »• • » 

BFNX* , A* * •, , 

SIAM', A*' S 

UZC S^' S 

IPs j *, 4 **; s 

UZS i * , 4* * S 


GWS S4** 
BFNX* ,4* • 
SIAM* , 4 ** 


UZC 


,4*' 


1 , 4 * • 


IFS 

U Z S ’ y*t^ - 
LZS • ,4* • 
GWS * ,4* • 
BFN X* ,4* ' 
SIAM* ,4** 
UZC * , 4* * 


IFS * 

UZS • 
LZS • 
GWS * 
BFNX* 
SIAM* 
UZC * 


t 4* * 
,4** 
1 4* * 
,4* * 
♦ 4** 
,4** 
♦4* 1 


• y 261 ** 


i: 


ij 


BLANK/ • 


RE|AL*4 STCHAS ( 648 ) 

REAL *4 STCSS ( 394 ) 

RE AL* 4 MS V ARV < 648 ) 

REAL*4 STSMRY I 416 ) 

RE AL*4 MSVSUP I 270 ) 

EQUIVALENCE { MSVAROI 1 ) , MSVARY ( L ) 5 
EQUIVALENCE (MS VSUD ( L| , MSVSUP ( 1 ) ) 
EQUIVALENCE ( STSURO (I ) f STSMRY ( 1 ) ) 
EQUIVALENCE (STCHART 1 USTCHAS! l ) ) 
EQU I VALENCE ( S TCSP ill, STCSS fill 


♦ DO LOOP TO 4 

44444444444 STMT H 23 4 
4 I ♦ K=U 394 4 


STCHASt liOfK) -STCSS I K) 


23 ♦♦♦♦♦♦♦♦CCNTINUE ( 

. * * . 

. * IF ♦ . T 

• CONOPTI 1 ' ♦♦♦♦♦ 

♦ 5I.NE.2 * 

GO TO 61 

♦ . • * 
* 4 



4 DO LOOP TO 
444444*44444 STMT 4f 6 
4 4 1 — 1 f 36 


| STCHAS ( 364 1 ) = SCP AS T ( I ) 


65 444 44 4 4 4 CON T INU E 


| STCHARC5) =SUST(3) 


MAX =MAX I 
STCHAS (551 -MSBOIC 
LI = 1 


CONTINUE 


4 DO LOOP TO > 

44444444444 STMT # 10 4 
4 4 1=1 • MAX 4 
4 4~- — 


IR =1 
NUM =2 


CALL CGNVER ( MPO AY ( L I ) » STCHAS I 9 L+K4L1 1 1 


R i NUM) 


OHIGINAr; PAGE IS 
0F p °OB QUAUTV- 
















♦ — — * ♦ 

♦ ♦ DO LOOP TO ♦ 

♦♦♦♦♦♦♦♦♦♦♦ ST MT # 11 ♦ 

♦ ♦ fp« l i Ml ♦ 

« ♦ “♦ 


CALL CCNVERITMPRECI I,M) , STCHASI <92+(2*M fj+K+L ) , I ft, NUM) 


. * * « 
. * IF 

♦ { CONOPT ( 1 
*5;).EQ.2 

* • • 

t i * 


T 

*♦♦♦■♦ 

* 


CALL CONVFR ( TMPREC C I , I I 
t SIGH AS ( 97 +K+L ) * IR , 


CALL CONVERT TMQF ( I , M ), STCHASI ( 1 10+ ( 2*M ) ) +J +K+L ) * IR , NUM) 
CALL CONVERI TM IF C I ,M) , STCHASI ( 128+1 2^11 +J+K+L ) , IR,NUM) 
CALL CCNVER (TMBF (I ,M) , STCHASC ( 146+ ( ) ) ♦ J >K>L ) » IR t NUM) 
CALL CCNV|R (STMROS ( I t M I^STCHAS ( ( 164+(2*M) ) +K+L ) , I R * NUM) 

• ♦ IF * . T CALL CONVER ( GDU T T I ) , STC 

♦ CONOPT ( 1 *++ + + HAS l 1 66+K+L ) ,IR,NUM) 

♦5KEQ.2 * 


++++♦+♦+++++♦++++* 


. * * . 
. * IF 

* CONOPT (1 

♦5). EG. 2 

* f- 


T 

*+++ + 
♦ - 


CALL CONVER (STMROSC I, U 
t STCHAS ( 169+K+L ) , I R, 


U ♦♦♦i+++*+CCNT INUE 

♦ 


=K+I08 
= L I ♦ 1 


• * IF * . T L^9 

* MODI 1,4) *♦♦*+ 

♦•E0*0 * 

* • . * 

[ ! F ] * - “ “ 7 

I ♦♦+♦ +++♦♦++++♦++++++♦++++♦♦+++ 


• ♦ * « 
• ♦ IF 

♦ MOD ( 1,4) 

*.EQ.O 
! * . 

F l 


. * * . 

. * IF * 

* MODI 1,8) 

♦ •EC« 0 

V* • ^ 


T 

*+♦ + + 
* 


T 

*++♦♦ 

♦ 


GO TO 17 


C-117 


CALL DVA3|TYPE»ST CHAS < MLNtNOH iSTRMT »LVAt , HVAL» VDL» TDATA» NCUDfc ) 


t I ' 

: ' ■ ... . 

♦ . * * • 

♦ . * IF * . 

, 4 ♦ I.EQ.MAX 

♦ * . . * 

♦ * . ♦ 

: 

♦ Tip I 

. > ■ ■ : — 

• 4 . . 

4 

ti ■ 

IT 4 CALL DV AR j TYPE. ST & 

4 r STCHAR(T) =S UBT ( f 

♦ I STRMT (4 ) = S U 8 T ( B 1 

: I 

♦ • 

♦ . * * . 

♦ • * IF ♦ . 

♦ * I.EQ.MAX 

4 * . . ♦ 

♦ * t * 

: 1 

♦ 4~ 4 

♦ ♦ DO LOOP TO 4 

44444444444 STMT # 15 4 

4 4 N“if 325,108 4 

4 4 4 


T 

*4444 


GO TO 17 


I STCHAM7) =SUBT { 8 ) 
I STRMT ( 4 ) =SU3T ( B ) 


. * * , 

* IF 
I.EQ.MAX 

♦ . . 

F I * 


T 

*444 4 


GO TO 10 


I STCHAS ( 904N ) = BLANK 
J STCHAS ( 99+N ) =BL ANK 


4 ^ 00 LOOP TO % 


44444444444 STMT # 

4 4 K-l ,6 

4 4 

I 


STCHAS (924M4K)= BLANK 
STCHASC 1014N4K ) = 8 LANK 
STCHAS ( l 104N4K l~ BLANK 
STCHAS ( 1 194N+K BLANK 
STCHAS ( 1284N4K )= BLANK 
STCHAS ( 1374N4K )= BLANK 
STCHAS ( 1A6 4N4K BLANK 
STCHAS ( l 554N4K > = BLANK 


STCHAS ( 1 6A4N4K )= BLANK 
STCHAS ( 1734N4K )=3LANK 


18 44444444CCNTINUE 

41 

15 44444444CCNT INUE 

♦ _ I 

i ♦ * rr «<r 

4 I L -0 

* 4 — — 




c C - 118 




I K 


♦ 

♦ 

♦ 

■ . ♦ ' 

♦ 

♦ 

♦ 

. > 

81 ♦♦♦ 


♦- 

♦ DO LOOP ru ♦ 

+♦♦++'»»«• STMT * 8 L ♦ 

♦ 1-1*36 ♦ 


| MSVARY ( 3.6 ♦Tl = MS PAST (i ) 
♦♦♦♦♦CCNTtNUE i 


MSVARO ( 5 ) 
MSVARD ( 6) 
MI =1 /' 

=SUBT<5) 
#$UdT (6) 

r 

NGM 

= 40 


L 

= 0 


LI 

= 1 


: K 

= 0 


MAX 

= MAXI 


I. MSVARY ( 55 ) 

=MSBDIC 


j I UKJ l^VI 

++♦♦*++!*♦♦♦ stmt j 


♦ DO LOOP TO ♦ 

♦ STMT 8 41 ♦ 

♦ 1=1 » MAX ♦ 

+ 


I IR = V 

J KUH =2 


CALL CONV BR ( MR DAY (LI) If MS VAR Y ( 91+K+L ) « 1 R « NO HI 

♦- — . + 

♦ ! DO; LOOP TO ♦ 


♦♦♦♦+♦++♦♦♦ STMT * 

♦ ♦ M= lit M I 

♦ ♦--- 


CALL CONVERT EM I FS ( I f M ) , MSVARY < 9l}ft 2*M l + K+L ) ♦ IR , NUM) 
CALL CONVER (EMU Z$( I t M j * M S V A R Y { 1 Q9+ Cj 2 * H > + K ♦ L ) , I R , NU M ) 
CALL CONVER ( EMLZS l I i M ) , MSVARY X X21+i 2*M ) +K+L) , I R , NUM ) 
CALL CONVERT EMGWS ( l »M ) f MSVARY ( 145* ( 2*fU+k+L) , I R , NUM ) 
CALL CONVER ( EMUZC ( I *M ) , MSVARY ( 199* ( 2*M ) ♦K+.L1 * I R # NUM) 
CALL CCNVER(EMSUM( I ,M) * MSVARY ( 181+ (2*M l+KH ) » IR,NUM> 
CALL CONV ER ( EMBFNX ( I » M}> MSVARY ( 1 63+ ( 2*M ) ♦ K*L ) r I Rt NUM ) 


43 CONTINUE 


=K*144 
= L 1+1 


• T * • 

V * IF * • T K=0 

♦ MOO ( 1*4) *♦♦+ + 

* • EQ *0 ♦ 

♦ • . . • -4 

* * " “r 
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SUBROUTINE ATTEN 


THIS IS THE 2250 OPERATOR INTERFACE ROUTINE 


CCMMON/GSPO/wdRK 

. GSP l 

,UNITN 

t I 2250 

1 1 ATN 

♦ HARE A 


NULL V 

, IGDSC 

♦ IPTNOW 

, M A X P T 

r.I P T 

f I SYM 

tRWHRKl 


I G0S4 

t I u C S 5 

• I G D|S 6 

, I OS P 

♦ RU 

tViSPB 

♦ HSPL 


VSP 3 

rVSPL 

f\i) ur 

f NXp 

♦ NYD 

•XSIZE 

♦ YSU£ 


XLL 

t YLL 

t XUH 

* YU ft 

• XTIC 

• YTIC 

♦XDVAL 


YDVAL 

• KEY! 

♦ I K-fc Y 2 

, IKEY3 

t IKEY4 

♦ AX 

tHX 


AY 

»3Y 

t Y L ° 0 S 

» 





LOGXSW 

,LUGYSW 

,NPTF 

■ NRGF 

# ERRHD 

♦ FA 

♦ F3 

9 

FC 

t GMOOEI 

t GSPIN 

, DUM . 

tlRECAL 





LOGICAL*! GSPIN, DU Ml 2 ) 

REAL*8 WORK ( 36 I 

INTEGER** I NT ART 10 ) t GSPl * UN I TN.NULLVIl) <0AREA 
LOGICAL* 1 FA, FB,FC,GM0DE1, GSPIN 
LOGICAL*! LGGXSW, LOGYSW,NPTF» NRGF , ERRHD 
REAL** RNT AR (101 » XT ICl 6 » , YT I C < 6 1 , XD VAl ( 6 > , YDVAL 1 6 ) 
ECU I VALENCE ( INT AR ID , RNT AR III , WO RK ( l) ) , l I S YM, I CODE > 

T~N 03 i = 7 abs 77 ospdi - 


n s j 


CALL ENATNUATN, 0,28,3*1 . , 

.CONTINUE 

CALL INCLI IG0S5,NULLV,IKEY1I 
REQUEST ATT ENT I ON I NFORM AT I ON 

CALL RUATM I ATN , I CODE , 2 , INTAR, 0,28 ,3*1 

. * ^ * . 

. ♦ IF * . 

* (ICODE) * 

* . . * : ‘ 

♦ • • * r 

* • * 

o I ♦ 


120 I 


110 | 


• 30 | 


• CALL TMGSP(GSPl) 

--' 4 '—^- 

4 WRITE ( NOUT » 1000 ) 




4 




STOP 

RETURN 

CONTINUE 


. * * . 

• ♦ IF < 

! * ( ICODE— 28 ) 

* • * . t : . ^ ,* 

J_Ll 

I 35 ~ T 132 i 




C-124 





■I 


1 !•'. 


. ♦ * < 
. ♦ if 

* IN TARIM 

* *EQ. -3 

' ' * • ; 

* • * 


F I 


. * ♦ < 
• ♦ IF 

* INT AR ( 4 ) 

* *NE* -2 

♦ . 

t 1 * 


T 

*♦♦♦♦ 

* 


T 

♦ 


GO TO 250 


GO TO 10 


210 


I ; 


| | ■ 

! I . 


CALL 0MITUGDS6) 

CALL INCL ( IGOSC) 

CALL INCH I G D S 5 > ' 

CALL INCL ( IGDS5 *NULLV « IKEY3) 
CALL INCL| IGDS5*NULLV, IKEY1) 

UO T 


1 ( I 


i ! 
0 : 


liU 


300 


C 

c 

c 


BRING UP PLOT SELECTED IN PLOT DICTIONARY 


CONTINUE 


. * ♦ . 

. * IF * . 

♦ ( INTAR ( 4 ) -ND3 ) * 

* . . ♦ 

* . . ♦ . 

* t * 

0 1 ♦ 


|310 


mo i 


1310 I 


310 


, CONTINUE , . ^ 

CALL BUF l N U 22 50 f INTAR ( 41 • IRC ) 
CALL I NCL ( IGDS C ) 

* * * I **...■ *i. ■ ■ 

• * * . 

. ♦ IF * . 

* CIRC) * 

* • . ♦ 

♦ . • * 

♦ • * 

0 l ♦ 


1320 | 


320 


133^4 

1 


1320 | 


+ fcRITFCNUUT, 1010) 
♦ IRC 

♦ 

1 




♦ 

♦ 

♦ 


C- C-127 









IF 

CF-10000 


IF 

IF.- tOOO 


CONCt+l) 


ORIGINAL PAGE ffl 
OF POOR QUALITY? 





BRCUTlNfc CORREL IS USED TO C AL.CUL ATE CORRELATl CN COEFFICIENT 

| ! : I ' • 


C 

C 

c 


c 

c 


XI » ARRAY I , X2 * ARRAY? , IV = NO. OF VARIABLES IN ARRAY 
ANS » ANSWER ClF CORRELATION COEFFICIENT 

SUBROUTINE CORKEL CXI, X2, IV, ANSI 
DIMENSION Xltll, X21 1 1 

RE AL*4 XI, X2, TXyl, TX2, MXl, MX2, DXl, 0X2, AX1, AX2r AX3, ANS 



■■ ] 

♦ 00 LOOP TO ♦ 

♦♦♦♦♦♦♦♦♦♦+ STMT * 100 ♦ 

♦ ♦ I = l, IV ♦ 


♦ 

♦ i; 

♦ 


i 


♦ i 

♦ ■ - 

T X 1 -TXL+XI1!) 

. .. 1 

♦ 1 


| - J9 !*> 

3 i Ale * ; V 'ifeAxL* 


TX2 

= TX2+X2 ( 1 1 


1 

MXl 

« TXl/1 V 

i' ' I 

/ * - 2 

MX2 

-TX2/IV 

1 


■' , ■ 

.1":. - 

l . . ■ ■ •;> i 

. . r , v 

; ‘A- C • • 


- * •- V ; t ^^-5. 



■ +_ 

[ + ■ 4> ■ 

* • - *s " . *r- ;• -ir'.R •• ■( 


♦ 

DO LOOP TO ¥ 



STMT # 


^ T" ■ 

* I 

¥ 
f 
• f 
♦ 

' ♦ 

♦ 

loi 


♦ i 


101 ♦ 


1 9 IV _ * 


| 0X1 


= x it i ) - mx i 


0X2 =X2U1-MX2 

AX 1 = AXUOXi*OXl 

AX2 =AX2fDX2*DX2 


AX3 -AX3*OXi*DX2 
AN S^- AX3/ SO KT ( AXl*AX2 ) 

RETURN * : 


eno 


ORIGINAIi PAGE IS 
OF POOR QUALITY 
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o 


SUBROUT INE OAYNX1 { CAV , DPY) 


C OETERMIINES NUMBER OF , NE XT DAY OF THE YEAR 

I i 

INTEGER DAYfOPY 


I DAY =0AYU 


• ♦ ♦ • 

• * IF * 

* DAY .EQ. 

♦ 366 

♦ . . * 
t\ * 


T 

*444 4 
♦ 


• * * . 

• ♦ IF * • T 

♦. DAY .ED. *4444 

.♦ 60 VANPV DPY .EQ. * 

♦366 * 

♦ . • * 

. *l* • 


. * ♦ • 

• ♦ IF * . T 

♦ DAY .EO. *4444 

♦ 367 ♦ 

♦ . . ♦ 

♦ • * 


DAY - 366 


DAY = 60 


♦ ♦♦41 .44444444444444444444444 


RETURN 


C-136 


SUBROUTINE 0 AYGLT ( VCCY , MEDWY tDPY I 
i I 

C PRINTS TABLE OF DAILY VALUES 


0 1 ME NS I CN MED WY Cl 2 It VOC Y 1 366 ) t V DMO Cl 2 1 
INTEGER D ATE » DAY t OPY 

♦^MRItIIgTiT ~ 


i it) 


FORMAT X FORMAT C 7X , • DAY* »7X , *OCT* 
,| ^ f'5'Xf *NUV ' * 5X» * DEC • r5Xt • J AN* » 5 X»' FFn* # 

SXf » MAR * , 5X f • A PR * ♦ 5 X • * MAY* , 5 X » * JUNE * »4X • ' JULY* «4Xt ' AUG* 1 5X * 

• SEMT* » 8Xj * ANNUAL* X 

T _ mIdWY( I 7 ~= 0 ~ ’ " T 


♦ DO Loci’ TO * 

STMT # 104 f 

> > DATE - if 28 #.!♦ 

: i .. i-: 1 ; ; ; 

♦ . * * * IF* * * . T GO TO 102 

♦ * MODI DATE ♦ ♦♦«•♦ 

♦ *(5) .NE. 1 * 

♦ :,i . * 

♦ * . * 

: f | 

♦ ♦ 4- 

♦ ♦ DO LOOP TO ♦ . 

♦♦♦♦♦♦♦♦♦♦♦ STMT * 101 ♦ 

♦ ♦ KKO = 1« 12 4* 

♦ 4 • 

: I 

♦ T day -MEOWY(KMoT»OATE 

101 ♦♦♦♦♦♦♦■*•? VDMCIKMC) =VDCY( DAY) 

: - | 

♦ ♦ WrTtE ( 6 » 2 I ; 

♦ ♦ DATE f VOMO C 12 1 t C VDMC C KWO) t KWD-lflll 

♦ ♦ I 

♦ 4 


EC I 


; ' 

♦ 7l04~ | 

♦ — 

♦ , 

i — ■ ;-:t 

♦ ♦ — 4 “ 

102 ♦ ♦ DO LOOP TO 4- 

♦ STMT H 103 ♦ 

• > ♦ KMO - 1 t 12 ♦ 

! 

* C ;rj ? OAY *MEDWY1 KMQUOATE 

♦ _ 


FORMAT 


2 FORMAT UH0.3X , 1 6 , 3X , 1 2F8 . 1 ) 




C-T37 


... * 


1; O 


103 «■*♦♦♦♦♦♦! VDMC(KM0» =V DCY( D AY ) | 

| I 

♦ ♦ * CATfc^VOMu! 12) viVOMDIKUUlf KWD = 1*11) 

♦ + 

+ ♦ 

; - i "" 

FORMAT 

104 ♦♦♦♦♦♦♦♦CONTINUE ( 

• ♦ # • I 

. * IF * • T Gfl TO 106 

* OPY .NE. ♦>♦♦♦ 

♦ 366 ♦ 

. . . F 


3 FORMAT! IX, 3X, 16, 3X, 12F8. 1> 



DATE = 29 
TEMP = VOCY (60) 

VDCY ( 60 ) = VD CY ( 366 ) 


♦-- ♦ 

♦ 00 LOOP TO ♦ 

♦♦♦♦♦♦♦♦♦♦♦ STMT H 105 ♦ 

♦ ♦ KMO = 1,12 ♦ 

♦ ♦ ♦ 

: I 


■ r 

,/ • . 

♦ — 

t 1 

DAY = MEDWY( KMOH-OATE 

’ I 


♦ 




♦ 

105 ♦♦+♦♦•♦♦* | 

VDMD(KMC) = VOCY (DAY) 

- 


♦^WrTteT6,3~ 

♦ C-ATEfVDMUC 12) , l VDMC1KWD) , KWD=i ,11) 


1107 | 


• CONTINUE ^ j , - ■ ■ 7 / , ... . 

WRITE (6, 4) ♦* 

♦ VDCY (302) , VDCY (333) , VDCY (363) ,VDCY (29) , VDCY(8B)f 
♦ t V 

♦ ♦ . 

♦ - — ---- — < ♦ • 


VOCY! 119 1 , VDCY ( l 49) , VDCY ( 180) , VOCY ( 210 j * VDCY! 241} , VDC Y( 27?) 

FORMAT 4 FORMAT ( IX, 7X, 2H29,3X 

CONTINUE . »AFS. l.8X» TF Rail 

* i i — ...» - 

¥ V.RITEI6.5) t 

♦ VOCY ( 303) t VDCYit 3341 * VOCY C 364 I » VDCY (30) * VDCY( 89 )> 

- - 
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vccy 1 120 ) • vocy i i' 50 i * vnCY (ii a 1 1 . vocv 1 21 1 > * vocyi 242 » , v om 2 73 1 

, FORMAT 5 FORMAT <1X« 7X .2H30*3X 

l . _ __ 4FB.l.flX»7F9.l) 

~ "♦* ! 

VOCY ( 304) * VOCY ( 365) t VDCYOl) t VOCYI 90) » VOCYI 151 It 


VCCY (2 12 I • VOCY ( 243) 


FORMAT 6 FORMAT (lH/«7Xt2H 
F 8 , 1 , 8 X , 2F 8 . 1 , 0 X , F 8 . 1 , 6 X , F 3 . 1 . E X 1 2 


I HEONYI 3) -=36 5 


RETURN 


T* u 




SUBROUTINE QIC TRY I TEXT ) ’ 


! CGMMON/GSPO/ WORK 

• GSP 1 

♦ UNITN 

t 12250 

* I ATN 

|V DA R F A 

! NULL V 

, LGOSC 

• IPTNQW 

* ma xp r 

f I P T 

f ISYM 

tPWDRKl 

IGDS4 

.IGDS5 

, IbOSfa 

f IDSP 

tRU 

• HSPR 

tHSPL 

j VSPB 

? VSPL 

• NCIUT 

t NXD 

• NYQ 

tXSUE 

t YS TZE 

XLL 

» YL L 

• XUR 

t YUR 

t XT IC 

rYT IC 

•XDVAL 

YDVAL 

• IKFY 1 

• 1 Kf Y ? 

, IKEY3 

» I K EY4 

,AX 

»HX 

■ ay 

i BY 

•YLPUS 

f 


■ | 

LOGXSW 

f LOGYSW 

f NPTF 

tNRGF 

.ERRHD 

• FA : 

• F8 

! 1 FC 

♦ GMODEl 

• GSP I N 

• DUM 

, I RECAL 



LCGICAL*1 GSPINt DUM(2) 

, I 

REALM XTIC(6)»YTIC(6)» XDVAL (6)9 YDVAL (6 ) 
i^TEGER*4 UNI TN t 0 AREA y NULL V{ i ) tGSPl 
LCGIC AL* l PA* F Bt FCt GMOOEl*GSP IN 
LCGiCAL*l LQGXSWf LUGYSWfNPTFf NRGF f ERRHD 
tCG 1CAL* l LINE ( 49 ) /4T# • V 

LCGICAL* 1 TEXT (72) 

REAL* 8 WORK (36) 

, EOUI VALENGE (RWORKit IA6SOP) 

C # 

C CREATE DICTIONARY ENTRY , 


| IABSDP = I A B S ( l DSP ) + 1 


• * '* * 

• ♦ IF * • 

* (I DSP) * 

* • . * 

0 I ♦ 


1 202 I 


1205 I I 

— — f 

i 

lTnE( 1)~=tIxt7i7 

rL 1 N E ( 2 ) =TFXr(2) 
L I NE ( 3 ) = T EX T ( 3 ) 


♦ DO LOUP TO * 

♦♦♦♦♦♦♦♦♦♦♦ STMT H 203 ♦ 

♦ ♦ 1 - 4 ♦ 47 ♦ 

♦ ♦ ♦ 

J . - I 

203 ♦ | LINEU) =L1NE<49| 


1205 I 


1215 I 


( ji 


-*■ ♦ 

205 ♦ DO LOOP TO ♦. 

♦♦♦♦♦♦♦♦♦+♦ STMT « 210 ♦ 

♦ ! ♦ 1 = 1, *7 ♦ 

♦ , ♦ ♦ 

♦ I 

OBlGINAIiPAGS® 

OF POOR (JUAU™ 
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SUBROUT I NE OLPC1 I PAR »HLN t NOM f OP AR t NCODE ) 

I "T" 


INTEGER *4 TYPE/l / , LVALti)/ l / , HV AL III / I t , VOL/ l / « TDATA/l/ 
INTEGER *4 IPARC192) 

INTEGER *4 OPART 32 » 

CALL CVARITYPE. IPAR,MLN,NOM,OPAR,LVAL,HVAL>VOL,TUATA,NCODE» 
RETURN 


C C-142 





— > • SUBROUTINE OMSCj IRAK, MLN.NCM.NCOOE) 

INTEGER *4 TYPE/4/, IVAUn/l/.HVALm/l/.VDL/l/.TOATA/l/ 
INTEGER *4 .1 PAR .(.1921 
INTEGER *4 OPAR<32> 

CAU. DVARCTYPE, IPAR ,HlN,NOM,OPAR ,1 VAt ,HVAl ,VDL ,TDAT A, NCODE) 
RETURN 

END 


ji 


§ 


I 

■ I' 
I. 

: t 
I- 

f 

1 


I 


g ;-/W« 


£ 




SUBROUT l NE DV A R l T Y P E , l P AR , MIN , NO M, OP AR , LVAL.HVAL , VD L , TOA TA » NCQDE ) 


CCMMON/GSPD/WIjRK ,GSP1 ,UNITN ,12250 , 1 ATN 


NULLV , I GUSC , 1 PT NOW , MAXP T ,IPT ,ISYM 
IGDS4 , I GOS 5 , l G0S6 , I IJ S P ,RU ,HSPB 

VSPB , VS PL , NOUT ,NXO ,NYD ,XS 

XLL » YL L • XUR ,YUR ,XTIC , YT 

YUVAL ,IKEY1 , IKCY2 ,IKEY3 »IKEY4 ,AX 

AY , 3 Y , YLPQS , 

LOGXSW »LGGYSW,NPTF ,NRGF ,ERRHO ,FA 


* I P T 
,RU 
,NYD 
,XTIC 


»ERRHD 


t OAR E A , 
• RWPKiO , 

, HS PI , 


* X S I Z E , Y S I ZE 
, YT 10 * XOVAL 


FC , GMOOE 1 , GSP I N ,UUM , I REGAL, l FLAG 

LOGICAL*l GSP IN, DUM(2) 

INTEGER*4 GSP1 * UNI TN,OAREA, NlJLLVt 1 ) , START 19) 

REAL*8 IDF (9 1, WORK (36) 

REAL*4 XT IC( 6) » YTICI6) , XDVAL( 6) , YDVAL (61 , GLABI 16} 
LOGICAL* 1 LOGXSW ,LUGYSW,NPTF , NRGF , ERRHD 
LOGICAL* 1 FA,FB,FC, GMOOE 1 

EQUIVALENCE ( WORK! 1 ) ,ST ARM )) , ( WCRKl III , GLABI 1 ) ) 
EQUIVALENCE (NULL, NULLV) 

COMPLEX *16 HDR (21)/' SELECT OPTI ON ( S j • ,■ • OR CONTINUE 


•SELECT VARIABLE 


•SELECT LINE TO B*,*E UPDATED 
• •* 

•SELECT CONTINUE *, 

•TO RESUME • , 

« i . 

***** INVALID - *,* ENTER A 
'* ', 

•ENTER FLT. PT. 0','R INTEG 
•LICABLE ', 


,'TO UPDATE 


COMPLEX *16 BL ANKS ( 5 ) / 


COMPLEX *16 B L-INE (5)/ 


COMPLEX *16 


RBUF ( 5 ) / 


•ENTER AGAIN ***•, 
•R INTEGER AS AP P‘, 

» . • 


.COMPLEX *16 SUFFIX/'-- 
COMPLEX *16 FOOT (21/* 


INTEGER *2 DISP/1/ 
INTEGER *4 ECODE 
INTEGER* 4 IPAR(l) 
INTEGER *2 LP/*3 •/ 
INTEGER *4 LPCA(IO) 
INTEGER *4 MSG (7) 
INTEGER *4 TYDATA 
INTEGER *4 TYPE 


r* ■ • - A* • 

--wY T. 


*7, 

- . . 



* i. 

••• 2. 

• , • 3. 

• f 

' 4. 



! 5 * 

•,• 6. 

•♦• 7. 

* * 

• 8. 


, 

• 9, 

• r* 10. 

• ♦ Ml. 


•12. 


• .> 

•13. 

• t 1 14. 

• ♦ • 15. 

1 T 

•16. 



•17. 

• t • 1 8. 

• t • 19. 

1 # 

• 20 . 

N*2i. 

•♦ 9 22. •♦ 

•23. 

S *24. 

• , •'.25* 

• 

'26. 

• ♦ 


•27. 

•♦•28. 

• * *29. 

f J 

•30. 

•♦•31. 

•••32. •/ 


"TT 

♦ / 





• 

CONTINUE* 


>3 


• - 1 

•/ 

i 

TERMINAT* 

♦ •E 

-—a 


;v;;; v •/ . 

• 

BACKWARD* 

♦ •- 

~a 


•/ 
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INTEGER *4 TOATA 
INTEGER *4 VDL 
INTEGER *4 V 
INTEGER *4 Z3» Z4 
REAL *4 HVAL ( 3 2 1 
REAL *4 LVAL (32) 

REAL*4 OPAR(l) 

EQUIVALENCE ( I ALEV, l ATN 1 
EGUI VALENCE (MIDSP.IDSP) 

REAL *8 VOATA/' | H I | I II •/ 
REAL *4 Zl,Z2 
EQUIVALENCE IX, Y) 

EQUIVALENCE I Z1 , Z3) , < Z2 , Z4 1 


C** USER’S OPTION! S) PROCESSING 


lOOOO 


CONTINUE 


FORMAT 

ACTION 


1 FORMAT I '0 UVAP DISLAY 
TYPt = • , 14, » TOATA =’,14) 


IF 

IFLAG.EQ 


GO TO 11001 


C INITIALIZE GRAPHIC SERVICES 


CALL INGSPIGSP1 ,NUU.V ) 

C. SPECIFY SUBROUTINE L INK/LOAO STATUS 


CALL SPEC (GSPl ,2,17,19,26,-28,53,-561 
CALL SPEC (GSPl, 1,7,8, 16,29,-31,37,-401 
C INITIALIZE THE 2250 


.CALL INDEV(GSP1,UNITN, 12250) 
C INITIALIZE GRAPHIC DATA SETS 


CALL INGDS(I225C, IGOSC, 30721 
CALL INGDS ( 12250,1 GDS5, 128) 

CALL INGDS ( 122 50 , IGDS6, 512) 

C SEt NO SCISSIURING FOR ALL DATA SETS 


CALL SSCIS( I GDSC, 3 1 
CALL SSCISI IGDS5,3) 
CALL SSC I S ( I GDS 6 , 3 ) 


C** SET UP TO BUILD DATA SET(S| 





CONTINUE 


• * ♦ . 
♦ * IF 

* TYPE • EQ 

*. 4 

* . 

t}* 


T 

* 



CALL INGDSl 12250, IGDS, 1536) 

CALL INGUS( I225C,MSG< l) , 1 2ft* NULL ,MSG(2) ,MSG(3I , MSG( 41 »f 
MSG( 6 ) t HSG( 7 ) I 

CALL $GR AMI IGDS ,2) * 

CALL SDATMC IGDS, 31 
CALL CRATL ( 12250,1ALEV) 

CALL SLP AT ( IGDS t il 


NCHKOD =4 
NX =48 
NY =20 


• ♦ * , 

* IF 

TYPE.NE. 


T 

* . 



NCHMOO =3 
NX =72 
NY =49 


1 1010 


CONTINUE M 

CALL SCHAM ( IGDS , NCHMOD) 

CALL SDATL ( IGDS ,0,0, NX, NY) 


C** BUILD MSG DATA SET(S ) 


♦ 4 

♦ DO LOOP TO ♦ 
+++♦*+++♦4+ STMT n 11Q02 4 
♦ 4 N=1 1 7 4 
4 4~ -4 


CALL SCHAM ( MSG ( N ) , NCHMGD-2 ) 

CALL SGR AM (MSG INI, 2) . . 

CALL SDATM( MSG(N) ,3) 

CALL SGDSL(MSG(N) ,0 ,NY-l , NX, NY,0 ,0 , NX, NY ) 
CALL PTE XT (MSG ( N ) , HDR ( 3 *N-2 ) 1 48 # I , NULL 1 1 * 


0 ,NY ) 


11002 44444444CCNTINUE 


C** SET UP TO COMMUNICATE WITH 2250 OPERATOR 


C * i C-147 






I EC ODE- 16 


. * * . 

. m If * 

♦ VDL.LE.O 

♦ •CR #VDL • GT • 6 

• * 

* I * 


T 

* 



| E CODE -20 


• * ♦ • 

* IF ♦ 

♦ TDATA.LE 

♦ •O.OR.TDATA.GT .2 

♦ . . * 

ft* 


T 


GO TO 1040 


C** SET UP TO ACCESS I/P ARRAY MEMBERS 


CONTINUE 


ECODE=0 
X *NOH 

X *(X/ 2 . 0 )* 0 .r 5 

M - X 


CONTINUE 


X -MLN 

X = ( X/ 4 « 0 J 40* 75 

I -X 

LTH *4*1 


C** BtILD VARIABLE CR OPTICNIS) DATA SET 


| NCV =0 


4i -> 

♦ CO LOOP TO * 

♦♦♦♦♦♦*♦♦■♦♦ STMT * LOO ♦ 

♦ ♦ L-itMt l + 

♦ ♦ •-+ , 


f:4 : 


I NCV =NCVU • "4 ; ._ __ l 

.. -- — 

CALL PT EXT ( tGO S , PREF I X C L) .3 , NULL , NULL , 1,0 , 19-NCV ) 

CALL PTEXT CIGDS , t PAR II *IL-l 1 ♦ 1 ), LTH, NULL .NULL , 1.4, 19-NCV I 


OraGINM5'PA.GBB 

OP POOB QGAUry 





• * 

; . ♦ IF * . T 

* MLN.GE.I *4444 

n ♦ 

♦ . • * 

? r 


GO TO 99 


- * I 

• >■■■! 

♦ ■ 

♦ ; 

• 4 j 

♦ . 

4 

' : 4 

♦ 

♦ 

' 4 

99 4 

♦ CALL PTEXT I I GOS ,LP , 2 , L t NULL? I « 16 , 19 -NCV I 

♦ : 

100 44444444CCNT inue 5 I 


CALL PTEXTI I GO S« SUFFIX* ( 1 l-MLN ) • NULL, NULL , l,MLN4*, 19-NCV I 

ccktinue 


• * * . 

. * IF ♦ ... T 

♦ H.EQ.l. A *444* 

♦ND.NOM.EQ.l ♦ 

* • • ♦ • 

* . * 

F 


GO TO 299 


l 1CV - NC V 

IK 


r 


<?***.. feu „ * •, 


♦ L=H,NCH,1 * 

i — 


I 

199 

200 


♦ DO LOOP TO 4 

4*444+4444+ STMT H 200 + 

♦ 

4-' 1 

f 

■ >’ 

4! 

♦ 

4; 

4 ; 

4i 
4] 

4 < 

♦ 

4 
4: 

4 
4' 

.4! 

4; 

4 
4 
4: 

4 
■4 
4 
4 
4 
4 
4 


I 


| NCV_ -NC V4l 
- 

CALL PTEXTI I GDS, PREFIX! U *3, NULL ,NULL , it 25 » I CV4 19-NCVI 

CALL PTEXTdGDSf IPARII *{ L- 1 ) 4l ) # LTH ,NULl , NULL f 1 « 29, I CV+ L9-Nf V) 

. * * * . * ™ " ~ ~ ^ 

. ♦ IF * 

* MLN.GE.l 

* l *. 

t \ * 


T 

*444> 




GO TO 199 


CALL PTEXTI IGOSfSUFFIXti ll-MLN), NULL, NULL » l,MLN+29, ICV419-NCV ) 
CONTINUE ; ’ 

: CALL PTEXTI IG0SfLPt2,LtNULLtit4ltICV4l9-NCV) 

444444 44CCNT INUE ^ ;.\:g v 

. •• • ,i,‘ '* f ' 


C** 0 1 SPLAY MAIN OPTIONS 


C* 


299, 

300 


CONTINUE 

CALL SALKMU225G) 

CONTINUE 

CALL EXECI IGOS ) 

CALL EXEC I MSG I TYPE I ) 
CALL ENAtNI I ALEV, 34) 


jORIGINAIi PAGE© 
<)F POOR QUAUTVi 


r.C-150 



405 


410 

411 


420 


?4 IT j 


CONTINUE 


• • IF 
* TYPE.NE. 

•2 Y 

••!.'" • • 

♦ . * 

F 


* • T 

■■ ■ ♦ I 

* 


CO TO 620 


CALL EXEC | MSG ( 6 J ) 

N =18 

K *19-LPSEL 


• ^ * • 

• ♦ IF ♦ 

* LPSEL.EQ 

• •KCR.LPSEL.LT. M 

* . . * 
♦ . * 

. :V- -I, F 


T 

* . 


GO TO 410 


1 8 


= 43 

=M+16-LPSEL 


I 


CONTINUE 

CALL PTE XT { I GDS » VOATA » VDL ? LPS t NULL * 3t N tK ) 
CCNTINUE 

CALL INCH IGDS, LPS) 

CALL ICURSI IGDStLPS , NULL » 1 ) 

CALL EXEC ( I GDS ) 

* CALL ENATNIIALEV, 32,34) r r 

CALL RQATN ( 1 ALEYfMCOUE , 2, LPGA ,32,34) 

CALL DSATNI IAL tV,32,34 ) 

CALL CMI T ( I GDS , LPS ) 

• • * • 

• ♦ IF ♦ . T 

♦ MCQDE.EQ 

• •32 • 

* . . * 

• . * 

F 


• • 

. ♦ IF ♦ . 

• (LPCA (4 ) ) * 

1 • . . * 

♦ . * 

0 I 


GO TO 500 


i 4ii i 


I4ii i 


♦ 

1420 I 


CCNTINUE 


* C-152 






r 


I NTCCDE ~-l*N TCOOE 
_ 


=NTCGQE 


C** CCNVEBT DATA TO REAL OR INTEGER AS APPLICABLE 


CONTINUE 


• * * • 

• ♦ IF * • T 

* TYPE.EO. *♦♦♦♦ 

*3 j ♦ 

* t * 

.r F 1 



CALL CVRTlNtRBUFfNCfXt IERR, TYOAT-A) 

. * • * . - 
■ . * IF * . T GO TO 1030 

* IERR.NE. *♦♦♦♦ 

•O.OR.TOATA.NE.TYDAT* 

♦ A * 

r :-:— * . . * 

* * 

F I 


# ♦ * * 

. ♦ IF * • T 

♦ TDATA.CQ 

*.2 . * 

* • * * 

* . * 


GO TO 610 


^CONTINUE 


*] • ♦ * * 

" 4 * IF * • T 

* X.LT.LVA 

♦LCLPSEL ) •OR.X. GT*HV* 
*AL C LPSEL ) ♦ 

* • I • ♦: 

ft* 1 


GO TO 1030 


1630 | 


CONTINUE 


21 =LVAL ( LPSEL ) 

22 -HVALUPSEU 


. * * 

* ♦ IF 

• Y.LT.23. 

♦0R.Y.GT.24 

Ft* 


■ T 

*♦♦♦♦ 

* 


GO TO 1030 


,€-154 


G 





!“S»SSS«ss 






! . ♦ 00 LOOP TO ♦ 

♦ ♦♦♦♦♦♦♦♦♦♦ STMT U 30 10 ♦ 

♦ ♦ N= l » NOM > 1 ♦ 


CALL PTEXTC IGOS, 1PAR(I*IN-H*1)»MLN,N,NULL ,I,0,NY-2*N) 


3010 ♦♦♦♦♦♦♦♦CCNTINUE- 


C** CONVERSION ROUTINE ERROR RETURN 


CONTINUE 

CALL EXEC ( MSGI 5 ) ) 
CALL INCL ( IGOS > LPS ) 


FORMAT 1031 FORMAT (• *** INVALID 
2250 ENTRY •! 


C** RETURN TO CALLER 


ECODE 

= 0 



X 

=«LN 



X 

= IX/4. OH-0.75 

* ' ' 


1 

= X 




GO TO 1040 

; ■ 

- — - «. , „ _ 

GO TO 1040 








ORIGINAL PAGE IS 
CP POOR QUALITY? 


n> 




C-158 



BLOCK DATA 





I 

CCMMCN/GSPD/ 


fcURK 

, GSP1 

f UN 1 TN 

t I 2250 

v I ATN 


i 

CAR HA 

, NULLV 

, IGDSC 

9 1 PT NOW 

t^AXPT 

, ■ t ; i ■ 

* ’ i 

IPT 

f ISYM 

v RWORK 1 

f IGDS4 

9 IGDS5 


i 

IG0S6 

t l DSP 

tRU 

rHSPB 

• HSPL 


• I 

VS PH 

• VSPL 

t NOUT 

t NXD 

9 NYQ 

9 

■ i 

XSIZE 

f YS I ZE * 

9 XLL 

» YLL 

9 XUR 

9 


YUR 

• XT IC 

9 YT I C 

•XOVAL 

9 YOVAL 


: . • "J 

IKEYi 

, IKEY2 

» I KEY 3 

»IKFY4 

9 AX 

t 

j. 

BX 

9 ay 

.BY 

9 YL PUS 

r 


i 

LOGXSW 

,logysw 

9 NPTF 

9 NRGF 

9 ERR HO 

9 

1 

FA 

, FB t FC 

,GMQOEl 

9 GSP I N f DUM 

t IRECAL 


■' ' . .1. 


LOGICAL*! BUM 12 1 

REAL*8 WORK! 361/10*' ********* , 'CONTINUE' , • 3TABL*. 

•E CF CON', 'TENTS— 3','RfcTURN — ',' 3NEXT',' PCGE--3' , 

18* • •/ 


REAL*4 RU/4C96 . / .HSPB/56./ .HSPL/84./ .VSPR/80./ 

VSPL/120. / t XLL / 896. / .XUR/3984./ »YUR/3616./ 

YLP OS/3 796. / *RWGRKI/1810./ 



INTEGER*^ UNITN/IO/ .OAREA/768/ .NULLV (1) /-5/, I DSP/O/ 
NOUT/48/ • NXD/ 6/ ,NYD/6/ »GSP1 

IPT/36/ .MAXPT/640/ .IPTNOW/O/ 

REAL*4 XTIC(6) ,YTIC(6t , XDVALI 6 > , YDV AL (6 ) 

LOGlCAL*l LOGXSW«LOGYSwl»NPTF«NRGFf ERRHD 

LOGICAL*! FA*F3 »FC*GMODEl/.TRUE. / »GSP IN/. FALSE./ 










♦ DC LOOP TO ♦ 

+♦++++++♦++ STMT H 106 ♦ 

> ♦ DAY - 44,50 ♦ 

♦ — — ♦ 

■ l .... i ......... 

106 ♦♦♦♦♦♦*♦7 -D.P E TXD A Y ) =0 « 000 67 *E MA ET 


— — — ~-~4> 

j 4- DO LOOP TO ♦ 

STMT * 107 4* 

♦ 4- DAY =_51,55 ♦ 

I - 1 -» 

107 ♦♦♦♦♦♦♦+T"dPET(DAV) = 0. X06R*EMAET 
OPcT ( 56 ) =0. Cc06'9*EMA : ET 


♦ DC LCOP TO ♦ i 

♦♦♦♦♦♦♦♦♦♦+ STMT * 108 ♦ 

♦ ♦ DAY = 57,61 *■ 

: * • ♦ -♦ ■ 

: I 

♦ * — — 

108 +*+*♦♦** DPE T ( D AY ) =0 .000 70*E MAET 

■ j DPET ( 62 ) =0. 0CO71*eMAET 
DPET (63) =0.00072*EMAET 
DPET ( 64 ) -DPET ( 63 ) 

DPET ( 6 5 ) -0*00 373*frMAE T 
DPE T ( 6 6 ) =0* 0 GO 7 4* E MAET 
! DPET (67) =0*0 0075 * EMA ET 
i OP ET ( 6 8 ) - 0 » 00 07 6 * E MA E T 

1 UP ET (69) = 0 • DC 0 7 7 * b M A E T 
. _ DPET (70) = QP E T (69) 

DPET (71) = D • 0 CO 7 8 * EM A E T 
iDPE T ( 7 2 ) =0P ET ( 71) 

ID PET ( 73 ) = 0 . OC C 7 7 * EM A ET 
DPET (74) =0P E T ( 73 ) 

DPET ( 75 ) = 0 « 0CC8O*FMAET 
lDPET < 76) =0.0C 08l*EMAET 
DPET (7 7 ) = Q • 00 03 2 * E M A ET 
DPET( 73) = 0 * G 0 3 8 4 * E M A b T 
ID PET ( 79) ”0 • OOv)86+hMA ET 
^ [DPET ('8 0 ) =0*0 0088 * c MAE T 

DPET (81) =0. CC 090*EMAET 
D P E T ( 3 2 ) = 0 • u 0 0 9 2 * E M A £ T 
DPET( 83 ) =Q.0CC94*EMAET 


DPET ( 84 ) 
DPET( 85) 
DPET (86) 
DPET< 87) 
DPET (83) 
DPET ( 89) 
DPET (90) 
DP E T ( 9 1 ) 
DPET( 92) 
DPET ( 91) 
DPET (94) 
DPET (95) 
OPET ( 96 ) 
DPET (97) 
DPET (58) 
DPET (99) 
DPET ( 100) 
DPET ( 101) 
DPET ( L 32 ) 
DPET (103) 
DPET( 104 ) 
DPET ( 105) 
DPET( 106 ) 
DPET ( 107) 
DPET< 108 ) 
DPET ( 109) 
OPET(llO) 
DPET( 111) 
DPET (112) 


= 0 • CO 0 9 7 * £ M A p T 
= C.C:)C99*EVAEr 

- 0 • 00102 * E M A E T 
= 0. CO 106^ EM A ET 
=0.00109*EMAET 

- 0 • 00 11 3 * E M A ET 
=0* 001 13*bMAET 
= 0. 00 122*EMAET 
= 0. 0012 3*EMAFT 

- 0 • 0 G 1 3 2 * t M A E T 
=0.001* 7*EMAET 
=0*0014 2 * EM A ET 
=0 • 0 01 4 7* E M A t T 
=0. 0015 1*EMAET 
=0. 0015 7*EMAET 
=0.00163*EMA8T 

=C*G0168*EMAFT 
= 0*0 0 1 7 3 * h MAE T 
=0. 001 73* t MAE T 
= 0 • 0 0 1 8 5 * E M A E T 
=0.00193*EM4ET 
= 0 * 0 0 2 9 1 * EM A E T 
=0.0023e*EM4ET 
= 0 * 0 0 2 1 4 * £ M . A E T 
-0 • 0 02 2 1 * £ M A E T 
- 0 • 0 02 2 7 * E M A E T 
=0.0 J234»EMAET 
=0 . 0024 1* t MAET 
= 0* C0249*EMAET 



DPET ( 1 13 ) 
0PET(IL4) 
DPET 1115) 
DPETt i 16 J 
DPETt 117) 
DPET (MB) 
D P E T ( 1 19) 
DPET ( 120) 
DPET ( 121) 
DPET (122) 
DPET (123) 
DPET ( 124) 
DPET ( 125) 
DPET ( 12b) 
DPET( 127) 
DPET ( 128) 
DPET (129) 
DPET ( 130) 
DPET 1 1 31 ) 
DPET ( 132 ) 
DPET ( 133 ) 
DPET ( 134) 
DPET ( 135 ) 
DPETt 136) 
DPETt 137 ) 
DPET ( 138 ) 
DPET (139 ) 
DPET (140) 
DPET( 14 1 ) 
DPETt 142 ) 
DPE T ( 143) 
DPETT 144 ) 
DPET (145) 
DPETt 146) 
DPETt 147) 
DPET ( 148) 
DPET ( 149) 
DPET t 150 ) 
OPETt 151 ) 
DPETt 152) 
DPETt 153) 
DPET (154) 
DPETt 155) 


=0 • 00256*CMAET 
=0 • G0262*E MAE T 
0.00268*CMA.fcT 
=0*00 2 7 6* EM ART 
= 0*0028 1 *C MA b T 
= 0*03287* T M A E T 
=0.00293*EMAET 
= 0 * 00259*F MAE T 
= 0 * 00 30 5* t: MAE T 
”0 * 003 10* c MAE T 
= 0 • 0 0 3 1 7 * E M A E T 
=0.00327*EMAET 
= 0 • GO 32 8* E ,M A £ T 
= G • 0 0 3 3 3 * c M A £ T 
=0.00338*EMAET 
=0.00344*FMA£T 
= 0*00348*8 MAE T 
= 0 « 003 5 4* E M A E T 
=0.00359*EMAET 
=0.C J365*tMAET 
= 0 . 0 03 70* E M A ET 
=0.00374*£MAET 
= 0*0037 Q*b M AE T 
=0.00382*EMAET 
=0*00387* EMAET 
= 0 #0039 l*fcMAbT 
= 0 • 0 0 3 9 4 * £ M A E T 
= 0 * G 0399*F MAE T 
=0 • 0 04 9 2* E M A ET 
=0.00407*EMAcT 
=0*0041 l * E M A E T 
=0*0041 7 * £ M A E T 
= 0 • 0 04 2 0* E M A E T 
= 0 *09426* EMAET 
= 0 • 004 30*E M A ET 
= 0 • 004 36*EMAET 
=0 .00440* CMAET 
=0.00446*EMAET 
= 0 • 0 04 5 0 * E M A E T 
= 0*0045 5 * £ M A E T 
=0*03460* EMAET 
= 0.0 04 6 6* EM A ET 
=0.00470*EMAET 



DPETt 156) 
DPET ( 157) 
DPET (158) 
DPET (159) 
DPETt 160) 
DPETt 16 i ) 
DPETt 162) 
DPET (163) 
DPETt 164) 
DPETt 165) 
DPETt 166) 
DPETt 167) 
DPETt 168) 
DPETt 165) 
DPETt 170) 
DPET ( 17 1 ) 
DPET ( 1 7 2 ) 
DPETt 173) 
DPETt 174 ) 
DPETt 175) 
DPETt 176) 
DPETt 177) 
DPETt 178) 
DPETt 179) 
DPETt 180) 
DPETt 181 ) 
DPETt 182) 
DPETt 183) 
DPETt L 84 ) 
DPETt 135) 
DPETt 166) 
DPETt 187) 
DPETt 188 ) 
DPtTt 189 ) 
DPETt 190) 
DPETt 191) 
DPETt 192) 
DPET (193) 
DPETt 194) 
DPETt 195) 
DPETt 196) 
DPETt 197) 


= 0. 00473* EMAET 
=0 • 004 7 8* EMAET 
= 0 • 0 0 4 8 2 * E M A E T 
= C • C C 4 8 7 * E M A E T 
=0*0049 i* EMAET 
= 0.00495*EMAET f 
= 0 . 0 0 5 0 0 * E M A ET 
=0.00504*EMAbT 
=0.00508*EMAET 
= 0*0051 0*EMA£ T 
=0 . 0051 2* EMAET 
= O * 0 0 5 1 4 * F M A E T 
= 0 . 005 1 5*EMAE T 
= 0 • 005 L 7*EMAET 
=0*0051 9f EMAET 
=0 . 00520* EMAET 
= 0.0057 If EMAET 
=UPET( 172) 
“DPETt 172 ) 

= 0*0052 2*EM AET 
=0.0052 3* EMAET 
= 0 • 00524* EMAE T 
=0 * 0052 5* EMAET 
= 0 . 0 0 5 2 7* E M A E T 
— u. 00528*FMA£T 
= DPr T t L 80 ) 

= 0 . C 0529* EMAET 
=0.0Q53C*EMAET 
= D P E f ( 183) 

= 0 . 90531* EM A E T 
=0*00532*FMAET 
=0.00533*EMAET 
=0.00534*EMA6T 
= D P ET ( 183) 

= 0 . 005 35*F MAET 
=0.005- J>*EMAET 
=0.00537* EMAET 
=0 .0053 8* EMAET 
=DPET( 193) 
-0.00539*EMAET 
=0 . 005 40* EMAET 
=DPE T ( 196 ) 


DPET(198> =0.00541 *bMAET 
DPfcT ( 199 ) =0.03542*fcMAfcT 
DPET ( 200) = 0 • 0 0 5 43 $ E M A E T 
UPET (201) =0.1 0 64 5*6MAE T 
DPfcT ( 202 ) =0.00546*'cMAET 
OPET (2031 =0 .005 4 7 *EMA fc T 
OPET (204) =0 .00548+fcMAET 
0 P E T ( 2 0 5 ) = 0 . CC 54 9*( : MAE T 
0PETI206) =0.00550*CMAET 
OPET (2 37) =0. 0055 l*i"MAET 
OPET ( 208 ) =0. 005 5 2*t MAE T 
OPET ( 209 ) = 0 . C C353*EM AE T 
OPET (2 10) =0.035 65*fcMAF T 
OPET (211) =0 . C 05574EMAET 
OPE T ( 2 1 2 ) =0.00558*EMAET 
OPET (213) =0. 3056C*EMAtFT 
0PETJ214) =OPETI 2 13) 

OPET (215 ) =0.0 05 6 1 * EMAE T 
DPfcT (216) =0.005o2*EMAET 
'OPET (217) =0.00563*cMAET 
OPE T ( 2 1 8 ) =0.005 o 5 * E M A ET 
OPET (219) =0.C3567*EMAET 
OPET ( 220 ) =OPET ( 2 19 ) 


* ♦ CO LOOP TO ♦ 
♦♦♦♦♦♦♦♦♦♦+ STMT # 109 + 
♦ ♦ DAY = 221.226+ 


109 ♦♦♦♦♦♦♦♦! OPET ( DAY ) =0.00568*EMAET 


♦ 

••! ♦" 00 LOOP 

♦+♦♦♦♦♦♦♦♦+ STMT H 

♦ ♦ DAY = 22 

♦ ♦ — 

t I 

♦ 


TO 

110 ♦ 
7 $ 229 + 


j OPET(DAY) 
*OPE:T ( 230 ) 
DPET (231 ) 
OPET (232) 
DPET ( 2 3 3 ) 
DPET ( 234 ) 
DPET (235) 
DPET ( 2 36 ) 
OPET ( 23 7 ) 
OPE T ( 2 38 ) 
OPET (239 i 
DP ET ( 240 ) 
DPET (241) 
DP ET { 24 2 ) 
DP E T ( 24 3 ) 
DPET ( 244 ) 
DPET ( 245 ) 
OPET< 246) 
DP ET ( 247 ) 
DPET (248) 
DPET ( 249 ) 
DPET (250) 
DPET (2511 
DPET (252) 
D PE T ( 25 3 ) 
OPET ( 254 ) 
DPET (255) 
DPET( 256) 
OPET I 257) 
DPET ( 258 ) 
DPET ( 259 ) 
DPET ( 260 ) 
DPET ( 26 1 ) 
DPET ( 262 ) 
DPET1263) 
D P E T ( 264 ) 
DPET (265 ) 
DPET ( 2 66 ) 
DP ET ( 2 67 ) 
DPET ( 268 ) 
DPET (269 ) 
DPET ( 270 ) 
DPET (271) 
DPETU72) 


= DP ET ( 219 ) 
=0.00566*FMAET 
=0 .C0564*EMAET 
-DPET (217) 

= 0 P E T ( 216) 

= D PET ( 2 1 3 ) 

- 0 ... 0 05 5 9 * EM A E T 
-DPET ( 2 11 ) 
-DPET( 210) 

-D PET (209) 
-DPET (2G6 ) 
-DPET ( 203 ) 

= D P E T ( 199 ) 
=DPET( 193) 

= DP E T ( 190) 

= DPE f ( 185) 

= f)PET( 179) 
-DPET (175) 
=DPET( 169) 

= 0.0051 l*fcMAET 
-DPET ( 163) J 
0 • 0049 7 * EM A ET 

- 0 • ID 0 4 9 0 * b M 4 E T 
DPET ( 15 8) 

= 0. w04 76*E MAET 
=0.00468*EMAET 
-0 • 034 6 1 * EM AST 
=0. C3454*EMAET 
-DPET (150) 

= 0 • G043 7*E MAET 
=0.00427^EMAET 
-a.C04ie^EMA5T 
=DPET( 14?) 
=0.00397*tMAET 
—DPET (137 ) - 

=0. 00377*EMAET 
=0.00367*EMAET 
- 0.0035 6* EMAET 
= 0.0034 1 * 1 MAET 
— 0 • 003 3 7 MAET 
=0.G0329*FMAET 
=DPET (124) 
=0.00315*EMAET 
=0.00308*EMAET 






DPET ( 273 ) 
UPET(274) 
DPETt 275 ) 
UPET (276) 
OP ETC 27 71 
0 PET ( ? 7 8 > 
DPET (279) 
D P E T ( 2 8 G ) 
DPET ( 281 ) 
UP ET( 232 ) 
DPET (283) 
UP ET ( 284 ) 
U PET ( 285 ) 
DPET ( 2B6 ) 
CP ET ( 2 B 7 ) 
OPE T ( 28 B ) 
jOPET ( 2 89 ) 
DP E T ( 290 ) 
[ DPET( 291 ) 
OP ET C 2 92 ) 
0 PET (293) 


=0.00333*EMAET 
= 0 • 003 0 Q * £ MAE T 
=0. 0029 8*E MAE T 
=0.C0?94*EMAET 
=0.e0290^rMAET 
= 0.002 86* EMAET 
= 0 * C 0 2 d 3 1 ir M A E T 
= 0 • 0 J27 9*£ MAE T 
= DP£T(LT6) 

= 0. C 32 7 1* EMAET 
=DPET( 1151 
=DPF 1(114) 
=0.00 25 9* EMAET 
= 0.002 54*EMAET 
=0 • 0025 2* EMAET 
=0 • 00 24 7* t M A ET 
= 0 • C 0 2 4 4 * E M A E T 
=0.00239* EMAET 
=DPbTH TO) 

= 0 • C 02 3 0 * E M A ET 
= 0 • 0022 5*E MAET 


DPET ( 294 ) 
DPETt 295 ) 
‘ DPET ( 296 ) 
DPET (297) 
0 PET ( 29 8 ) 
0 P E T ( 2 9 9 ) 
0 PET ( 3 DO ) 
DP ET ( 30 1 ) 
DPETt 302) 
DPET (303) 
DPET ( 304 ) 
DPET (305) 
DPET ( 306 ) 
DPETt 307) 
DPET ( 3G3 ) 
DPET (309) 
DPET (3 10) 
UPET (311! 
DPET <3 12) 
DPET (313 ) 
DPET (3 14) 
DPET (3 15 ) 
DPET ( 3161 
I DPET ( 3 17) 
i DPET (3 18) 
; DPET (319) 
| DPET (320) 
i DPET (321 ) 
| DPET (322) 
DPET (323 ) 
1 DPET (324) 
I DPET ( 325) 

| DPET (326) 
! DPETj 327 ) 
1 DPET (328 ) 
! DPET ( 329 ) 
: DPET (330) 
; DPET (331 ) 
| DPET (332) 

| DPET (333 ) 
DPET { 334 ) 
I DPET(335) 
! DPET ( 33o ) 
! DPET (33 7) 
I UPET ( 333 ) 
UPET (339) 
DPETt 340 ) 
DPET (341) 
CPETt 342 ) 
DPET (343) 
j DPETt 344) 
I DPET (345) 
DPET (346) 
DPETt 347) 
DPET (348) 
DP ET t 349 ) 
DPETt 350) 
DPET (351) 
DPETt 352) 


=0.0022 2 *EMAET 
= 0 . C O 2 1 7 * t MAE I 
=0.0 0 2 1 2*E M A E T 
=0 • L 0 2 i 0 * EM A E T 
= 0. C02 06*rMA£T 
=0.0020 0 * EMAET 
= 0 .00 197* EMAET 
=0.C0194*EMAET 
=0.001 8 9*E MAE T 
=0.00186 *£ M A E T 
=0 • 00 13 3 * EM A E T 
= 0.0018 C*,E M A ET 
= 0 • GO 17 7*fc MAE T 
= 0.0017 4*£ M A E T 
=0. 00 172* EMAET 
=UPET ( l 00 ) 
=DPET ( 99 ) 
=0.C0163*EMAET 
=0. GO l 5 6* EMAET 
=0.00152 * E M A 6 T 
=0.00149*EMAET 
= 0. CO 14 6* EMAET 
=0PET(95) 

= 0 . 0 0 l 3 8 * E M A ET 
= 0.0013 5* EMAET 
=0 .0013 1* EMAET 
=0.0012 7 * E MAE T 
=0. 0012 4*f MAE T 
= 0 . COl 2 0*EMAcT 
=DPET(90) 

= 0.00116 * EM A ET 
=UPET ( 99 ) 
=0.001 1C*EMAET 
= 0 .0 010 7* F M A ET 
= 0.00 10 4* E *MA E T 
= D P E T ( d 6 ) 
=0.C01CC*EMAET 
=0. C 005 8*fc MAcT 
=0.0C097*E M AET 
=0.CG095*EMAET 
=0.CCO93* EMAET 
=DP£T<31) 

= D ° F T ( 80 
= 0 . C 0 0 8 7 * E M A E T 
=DPET( 79) 
=DPET(78) 

=DPC T { 7 7 ) 
=OP;l-TC75'5 
=0PET 173> 
=UPET( m 
=DP ET ( 71) 

= DP ET ( 69 i 
=DPET( 68) 

= D P E T ( 6 6 ) 

= U °ET (63) 
=DPETt 62 1 
= D PFT ( 5 7 ) 

=OPE T ( 67 ) 

=DPET (56) 
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4 ~4 

♦ CO LOOP TO 4 
♦♦♦♦♦♦♦♦♦♦♦ STMT # 111 4 

♦ 4 DAY « 353 » 3554 


7 DPET(DAY) =DPET ( 51-1 
1 CPET l 356 ) =DPEHA4) 

... ... . j 

i 



DP ETC 3 57) 
DPETC 358 ) 
CPET ( 359 ) 
CPET (360) 
DPETC36U 
DPET ( 362 ) 


-DPETC 44) 
•=DP E T C 42 I 
“DPETC 41 ) 
-DPETC 39 ) 
= D P F T ( 34) 
“DPETC 33 ) 


4 . -4. 

4 DO LOOP TO' 4 
STMT tf l 12 4 
4 4 DAY = 363 1 36 54 

: I * 

112 ♦♦♦♦♦♦♦♦ j DPET (DAY) = DPETm 
I DPET ( 366 ) =DPET I 57 


DPET ( 366) =DPET(571 

I 


RETURN 




PROGRAM FINDS THE INTEGRAL OF A GIVEN HVDROGRAPH AND PLOTS THE 

• ! ! 1 

C INPUT DATA. 


DATA INPUT IN HRS. FT. 


CATA PLOTTED IN HRS. FT. OR HRS. SEC. FT. 


C DATA INTEGRATED IN DAY'. FT • OR DAY. SEC. FT. 

C (FLAG- l TRAPEZOIDAL INTEGRATION SCHEME USED. 

; • -I 

C IFlIaG* 2 SIMPSON 1 S 1/3 INTEGRATION SCHEME USED# 

$ I PLOT* 0 1403 PRINTER PLOTS ONLY. 

l ■ - 

C IPLOT* I BOTH 1403 PRINTER PLOTS AND SC4020 PLOTS. 


i,OOKUP= ->1 NO TABLE LOOKUP REQUIRED FOR CURRENT CASE. 
LOOKUP* 0 PREVIOUS TABLE REQUIRED FOR CURRENT CASE. 


LOOKUP* 1 NEW TABLF REQUIRED FOR CURRENT CASE. 


tMTfiTNTAT! ©A nm 


SUBROUTINE INTI NQ , Q , DT , AREA I .LOOKUP. I PLOT ,NFP. MSBDI C , MPOAY, D IFFS, 
DIFFMP.DIFFP.DIFFPP.SUM.DIFFRA.DIFFRP.APREC.DI FFPR . D1 FPP ,QOUT . 
QMAX.PHKOI 

CCMPCN/PLOTC/DRSF.DSSF.CONOPT.THSFD.TMSTF.STMROSI 121 ,61, OPY, TITLE, 
KFL AG, 1 DFLAG , 

I ENDFG, STUDY I 2 ) , PE AKS , PHRS , NSPTS , T HSF DP , T FMAXO , T‘MT F , JPL JT , 

NCTR I , CTR I , F I RK ,R IC Y , DPSE , BOOF SM , SPbf-LW , SPTWCC , SP I, EL OIF, 
XDNFS.FFOR.FFSI , MRNSM, DSMGH, PX CS A.RKPF , R GPMB . AREA , F IMP, 
SATRI.UHFA, ' . 

MNKO, 

FWTR,VINTMR,BUZC,SUZC,LZC,ETLF ,SU8WF , GWCTF ,S ! AC , BM I P , 

BliVF, OFSS ,0F SL » OFMN ,OFMN 1 S , I FRC , CSRX, FSRX, CHC 4P , EXQPV, 

BFNLR, BFRC,GWS,UZS,LZS,BFNX, I F S , bFHKL , bFRL , 6FNRL , BFNHK , IFPRC, 
IFRL.LSHFT.NBTRl , Ffi TR I , MX TR I , NCS TR I ,P. TR I ,T FC FS, fcPAC T ,FPSR, 

TPLR, V1NTCR, HSF,.sRTR I , SP 1 F , CBF ,SPDR ,OFUS ,OHJS I S , OF R ,f)FR IS ,PE I S, 
RHFO.URHF.AM I F , AMNET , AMPET , AMSNE, AMFS I L , SASF X , SAR4X, SRX, VWIN. 
WCFS.RHFMC.SSRT.nFRr ,OFRF I S . EODT , E'JDF IS .SOFRF.SOFRF I, 

SDEPTH.MULT I , I D, ASM, WT',AK , w UPM, SAX, TANSM.SP TW , S TMD , SF MO. ASNRG » 
0EPENDI2I , VARINI2) ,NPI S, JULDI , I Y R , TODAR Y I 5 , 1 ) , 

TCPARYI7, 1 J .TOSARYI 6,6, 1 ) , T SO ARY (6 , l ) , T SK ARY! 8 , l ) , 

TSSARY(3,6, II , TSMCRYI I ),TSDCRY( 1 ), TSRARYl 1,6,1 I . 

TORARYI 1,6, II, 

DR$FT(366),DSSFT(3t6),Ml,NI,MULr,THRTFT(12),TMSTFT( 121 

COMMON/ COMMA/ EMBFNX ,EMGWS, EHI FS,SMLZS,EMS I AM, EMUZC.cMUZS.TMBF , 
TM1F, TMPREC, TMSE.CRFMl ,ODI W,D 4Nf .DMXT ,DRGPM, ORH D , URSGP, DPET ,t!)LZS, 
EPCM.SERA.SERR .S^SF.SOER, THSF, T'lFSIL.TMNtT ,TMOF , TMPET , TMRPrt.TMSNE , 
TMSTFI.T20CFH, T20PRH, TMk TF1 .JIJLDAT, 

TFMAXY.UZC, AET X,DAY,NSGR0,AEX90,Sl AM,NDSOP,RGPM,NUSDR,YRl , 

TRHF , 

SjlNDEX, INDEX, AEX96,MAXI,YR2,8YLZS,BYIFS, BY UZS 

DIMENSION TITLE! IB I ,01337) ,T( 337 I, TABTI IB I 

.FLOTUB) ,FLOJ( 1 3) , IOFI 18) , T b*P C 15A>> 

, YLAB (13) , FLU ( 6 ) , A 1 10 ) , SO I SC 3 ) , ANSJ! 3 ) » ANSS ( 3) » 

NSPTSI6I ,SUBT( 18) ,DKSF(366) ,DSSF(366I ,T!1LAI 13) .CUNOPTI 16), 
THSFOI 7A4.3) .PEAKS! 6) , THSPOH! 6 I . PHRS! 61 ,TMRT.-| 12) .TMSTFI 1543), 

CTR I (99 ) , T IRR ( 15) ,KICY( 37) , JPSEI 366) ,8TR 1(991 , 

CRFM I ( 2 2 1 ,D0 1 w ( 366 ) , L'MNT ( 366 ) , DHXT ( 366 > , DRGP.M ! 366 » , DRHP I 366, 24 ) , 
EMBFNX! 15,3) .EPGWS! 15,3) , EMI FS! IS,3),EMLZS( 15 , 3 > , EMS I AM I 15,3), 
0RSGPI366I ,DPET!366),FDLZS!366),StRA(22) ,S ERR I 221 ,SE5F|22)» 
SCERI22) , 

EKUZC! 15,3) .EMUZSI 15,3) ,EPCM! 12 ), 

THSF! 24 ) »TK3F ( 15,3 ) » TMF$ IL ( 12) , TMIF! 15 ,3 1 , TMNETI 121 , 
TMOF! 15,3 ) , TMPET ! 12) . TMPREC! 15,3) , TMRPM! 12) ,TMS€1 15,3), 

TMSNE! 12), TMSTFI ! 15 , 3 ) , T200FH! 21 ) ♦ T20PRHI 211 • 

TPRTF 1 112), JULDAT (6 I , TFMAXY (366) , 

SATR 1 199 j »UHF A I 99) , APRECI 3 ) , GOUT! 15) 


INTEGER 01FFP,STPTS,PHRS,FLDY(18» • ST UOY * Tl TL A , T ACT , E NO 

INTEGER TOM ARY , T SMAR Y, T ODAR Y, TSDARY, TOS ARY ,TSS ARY 

i^TEGER FI LDPI 1 8 ) .CONCPT , PCHARP ( 2 ) , PCHARFI 3 1,PCHAR (3 ) .SINOEX 
MPU A T 1 1 5 ) f rL JO i r LIJ I 

INTEGER ANSCt ANSS i PHRQ, SUBT 

REAL SUMO) 

CATA PCHARP/38 * 5 0/ 

CATA PCHARF/54,57,22/ 

INTEGER PFCHAR<3)/-230,-233,l98/,PPCHAR(2)/-2l4,226/ 

INTEGER PRCHARO) 


IN • » • <TTM' • 
»• IN ',3*4H 


CATA SUBT/'RSF ','R/O • ,3*4H ,' 

•EIHK' , ' )> S', *IM R','/0 ' , 3*4H 

Cat a eno/'End •/ 

CATA BLK / 4H / 

CATA F10Q/'W/C ','VS N','/P V'.'S F/','C HO'.'URLY',' R/0‘, 
11*4H / 


CATA FLOP/'HOUR' ,'LY • , • PREC • , • IP AT* , • AT I O' , * N 
IIYAH / 


t MINIS 


OATA FLOY / • HOUR ' ,'LY 0','BS A','ND SS'IM R','/0 (S'CFSIS 
114 AH / 


CATA FLDT/6*4H 


, 'TIME' , • (H R S * ,*J • ,9 * AH 


CATA FLO / • E(FT* *• I 

. | 

I ERR =0 
INDcX.M =0 
1 0 1 AG= 1 


♦ ♦•EISES'C.FT','.) •/ 


♦* 00 LOOP T 0~ + + 
*********** STMT * 180 

' * ♦ _I=I,15A0 ♦ 

: * "1 
♦ 

ISO | TEMPI I ) =0.0 




♦ REA0t5,500) ♦ 

♦ C I DP l 1 1 ,1 = 1,18) .. /, ' + 






1 . I + 

♦ DO LOGP TO ♦ 

♦♦♦♦♦♦♦♦♦♦* STMT * 16 ♦ 

r «■ 1 = 1,19 * 


FORMAT 500 FORMAT! 18 A4> 


I « * * . 

• ♦ IF ♦ 

• 1 IDF ( I ) .£ 

*Q.BLK 

* . . • 

F I * 



16 ♦♦♦ ♦♦♦♦♦CCNT INUE 
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i 


i ♦■ — ♦ 

! ♦ 00 LOOP TO ♦ 

♦ ♦♦!♦♦♦♦♦♦♦♦ STMT * 4024 ♦ 

♦ ! ♦ 1=1,2 ♦ 

♦ : ♦ ♦ 

.ri-ij : I 

♦ C ICFI 14+-I )= STUDY! 1 1 

♦ 

*024 ♦♦♦♦♦♦♦♦CONTINUE 

CALL PLOT JOt IDF, l» 9) 


120 | 


CONTINUE 


♦ REA0I5, 500, EN 0=7771 
♦ '(TITLAt I ) ,1=1, IQ) 


. * * . 

. • IF * . T 

♦ T I TLA Cl) *♦♦♦♦ 

♦.EQ.END * 

* . . * 

- ’ tr 


GO r T0 777 ^ 

*sJU m .YVlv thrift wJiii 


i ... . : 4 ~ — — 4 

♦ DO LOOP TO 4 • - " — . — 

STMT H 4023 4 

♦ 1 * i = i ? 2 ♦ 

♦ 4 4 

Wf ' I _ _ __ 

♦ T TITLAU6M) = STUDY ( I ) 

♦ j : v 

4023 ♦♦♦♦♦♦♦♦CONTINUE -.-:V . 

: | e V - • • ♦ - - ^ • •&*>**/« ■ U 

4-> 4 

♦ DO LOOP TO ♦ v 

44444444444 STMT # 59 4 r. 

♦ 4 1=1, NFP 4 

♦ ! ♦ ♦ 

4 - I 

♦ T APREC(I) =0.0 ~ 

♦ - — — T-| * ~ , ; ~ 

59 4444444+CONTjNUH 


4 4 

4 DO LOOP TO 4 
444444*4444 STMT H 6 1 4 

♦ 4 K=l,NFP 4 

4 ; 4 4 

;d ■ i 


4 : :• 4~ *4 

* j > 00 LOOP TO 4 ; v 

, 4+444444444 STMT H 63 4 ; 

41 [ •. 4 1=1, MAX I 4 

4! : 4— -4 

i i L. 

♦ I^APRECCX) *TMPR£Ci I «*)♦ APREC f Kj 


«-1 68 





, ♦ » “ 

63 ♦♦♦♦♦♦♦♦CCNTINUF 
♦ 

61 ♦♦♦♦♦♦♦♦CONTINUE 

; s ♦- -♦ 

. - ! ♦ DC LOUP TO ♦ 

♦♦!♦♦♦♦♦♦♦♦♦ STMT H 65 ♦ 

♦ I = i t NF P ♦ 

♦ ♦ 


♦ 


DU LOOP 
STMT n 
♦ J~ l f MAXI 
; +•<• 


67 

65 


♦♦;♦♦♦♦♦♦♦♦♦ 

♦ ! 

♦ i 

♦ ! 

♦ 

♦ ! 

♦ 

♦ 

♦ 

♦ I 

- ♦ • 

♦♦♦♦♦♦♦♦CONTINUE 

♦ 

♦♦♦♦♦♦♦♦CONTINUE 

F ‘ ~ T^^WlqoT 

♦♦♦♦♦♦♦♦♦♦♦ STMT # 


♦ 

TO ♦ 
67 ♦ 

♦ 


TMSTP1 ( Jr 1 1 -I TMSTFLJV 
TMOF ( J » I ) -TMSTF I ( J » 1) 
-TM3F( J 1 1 1 ♦TMSE ( 


tg~% 

322 ♦ 

♦ 


m 

-TM 

Jt I 


/VWJ 

IRJ 

I 


til 


O 


THSFDT = THSFD < 1*1) 
_ 


PEAKS( I > =TBSFO( l » I } 
PHRSU> =1 


32v> 

322 

330 


.♦ ! ; ♦ 1=1, NFP 

♦ ! I 

'M -kr: I 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ I ” T 

♦ c 

♦ I 

♦ ! . ♦ — ♦ 

♦ i ♦ DO LOOP TO ♦ 

♦♦♦♦♦♦♦♦♦♦♦ STMT # 320 ♦ 

♦ ± -.-♦ J=2,S INDEX ♦ 

Ft . 4 ‘“ r 

♦ 

. ♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦♦♦♦♦♦♦♦CONTINUE 
♦ 

♦♦♦♦♦♦♦♦CONTINUE 


• * IF 

♦ THSFD { J t 

♦ IKLE.THSFOT 

♦ • 

* • * 

• .. '.>• i . F 


T 

♦ ♦♦♦♦ 

♦ 


GO TO 320 


PEAKS C I ) = THSFD (J, I) 
THSFDT =THSFDC J » I I 
PHRSU ) j*J 


J 4 

/FoTcaP TO ♦ 

♦♦♦♦♦♦♦♦♦♦♦ STMT # 332 ♦ 

♦ ♦ 1=1 ♦ NFP ♦ 

: * \ 

I Vthsfot *thsfd7i ,71 
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♦ WR I Tt ( 6, 612) 
♦ NPTS 


♦ WRl TEC 6,607) 

> I VAR IN C Ut UltNPTSt 


FORMAT 612 FORMAT ( *0NUMBER OF POINTS 
IN RATING TABLE** ,16) 

„„„„„ ---4: 

♦ 


( ! :) 


FORMAT 607 R’RMAT ( • 31 NOE PENDENT 
I _ __ ^VARIABLES 1 / ( 12FI t#6) ) 

♦ "rrTtE(6,608T ~ " + 

♦ (DEPEND ( l ) ,1= 1 1 NPTS ) ♦ 

♦ ♦ 

♦ *•" ♦ 


FORMAT 60S FORMAT <//* ODEPENDFNT 
V AR I ABLE S • / ( li2EL 1*41 1 

+ 


♦ kR!TE( 6 f 60 < 5 ) 

* ( T C 1 1 ? Q ( l ) , 1= l 1 NQ I 

♦ 

'■■■+ ■■ 


4 


* FORMAT 609 FOPMAT ( ft • OT IMF ( HRS . ) 1 

•5X, •OBSERVED DISCHARGE (SEC# FT# OF GAUGE Hfl 

-GHT-) • /<F9# 2,F22#HJL ; | 

♦ DO LOOP TO ♦ 1 * 

STMT U 90 ♦ 

♦ ♦ 1=3,5 ♦ 

t 1 ; 0 : '■ ■ Z : 

,0 ♦♦♦♦♦♦♦♦! FLOOin =FLDt i + t) * " *'■ " I 


• • ♦ 0 

. * IF * • • T 

* CONQPT U *♦+♦♦ 

♦51.NE.2 * 

i i * 


GO TO 25 


J QMAX =Q(1) 
I PHRO .= 1 


♦ DC LOOP TO ♦ 
♦44 44 ♦ + 4 STMT H 16 1 4 

♦ 4 1=1, NQ * 


. * IF * • T 

i* QU1.LE# , *4*44 

•QMAX * 

f \ 


GO TO 161 







PCHAR(l) spCHARP'll) 
PRCHAR(I) =P PC HAR ( I ) 


7 ♦♦♦♦♦♦♦♦CONTINUE 


. * ♦ . 

• * IF ♦ . T Q MAP- PEAK 

* QMAP.UT. *♦♦♦♦ 

•PEAK * 

* . • • 

* ♦ * — 

F ] ♦ 

I ♦♦♦♦♦♦+♦♦♦♦♦♦♦+♦+♦♦♦♦♦♦♦♦♦♦♦♦♦ 



■■••■ • • 

• • ~ IP * . T OMIN= THSFOM 

• OMIN.GE. *♦♦♦♦ 

•THSFOM ( INDEX**) ♦ 

. T 

* * - 

F I ♦ 

I ♦♦♦♦♦♦+♦♦♦♦♦♦ ♦+♦♦♦♦ ♦♦♦♦♦♦ ♦♦♦♦ ♦ 

CALL FLBCDE ( SUM { 1 ) »6t ANSO) 

CALL FLBCDE<SUM(2),6f ANS S | r' ; 0 

S~W LOOP TO % . ; 

♦*♦♦♦♦♦♦♦♦♦ STMT a 381 ♦ 

: .%**»!* .* 

: -3. I _ 

381 ♦♦♦+♦+♦♦ | SUBTU+2) -A NS pi I ) 


♦ — — ■ — — ♦ 

♦ 00 LOOP TO ♦ 

♦♦♦++♦♦++♦♦ STMT i 332 ♦ 

♦ ♦ I = 1 1 3 ♦ 

♦ ♦ 4 


382 ♦4444444 SUBTI I ♦ID = ANSS ( I ) 
N =1 

L =24 


♦ — ♦ 

♦ 00 LOOP TO ♦ 

♦♦♦♦♦♦♦♦♦♦♦ STMT # 53 + 

♦ ♦ 1 = 1 » MAXI ♦ 

♦ ♦— — -♦ 

: i ... l ■ - 

♦ T QOUTm =0.0 

♦ 

: 1 

53 ♦♦♦♦♦♦♦♦CONTINUE 

♦ ♦ 

♦ DO LOOP TO ♦ 

♦♦♦♦♦♦♦♦+♦♦ STMT H 57 ♦ 

♦ ♦ 'I=l»MAXI ♦ 

♦ ♦• ♦ 

♦ __ l_ 

.♦ 4 00 LOOP TO ♦ 

* ♦♦♦♦♦♦♦♦♦♦♦ STMT # 55 ♦ 

♦ ♦ K=N»L ♦ 

J * i 

♦ T COUT (II =QCK)+QaUTm 


,iv ,-/v 
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It ^♦♦♦♦♦♦♦CCNTINUE 


KNT *3 
0 MAX = PEAKS< 3) 
PHRO = PHRS ( 3 ) 
SSUM -SUM13) 


♦ 00 LOOP TO 

♦ STMT n 1 
♦1=1,3 


II ■♦♦♦♦♦♦♦♦CONTINUE 


♦ CO LOOP TO ♦ 

♦♦+♦♦♦♦♦♦♦♦ STMT # 33 ♦ 

♦ ♦ K=l , S.INDEX ♦ 


THSFO ( K ,.11 


33 ♦♦♦♦♦♦♦♦CONTINUE 


♦ 00 LOOP TO 

♦+♦♦♦♦♦♦♦♦♦ STMT ■# 

♦ * - ♦ 1=1,18 


SUBTM ) 
FLOYC l ) 


PLO T ( I ) 
FLOUT 1 ) 


3 ♦♦♦♦♦♦♦♦CONTINUE 


GO TO 1001 


IPLOT.NE 


CALL PL360 1 NPPTS, TEMP, T ,T( l),T(NQ) , SUBT , Q , QMl N ,QMAP, FLOY 
T ITL A»-2 14 ) 

CALL PL'S 60 ( STPTS ,TEMP ,T,T (1 ) , T ( NO) , SUBT , SQ ,QMI N, 

QMAP, FLOY,T ITL A, 226) ♦ . 


C SC4020 PLOTS 


IF 

IPLOT.EQ 


1 


| PCHARU ) = 

PCHARF ( n I 

I PRCHARU) 

-P FCHAR ( I ) 1 







• ^ • 

. ♦ IF ♦ . T 

♦ CONQPT ( 1 *♦♦♦♦ 

fSi *FQ.2 * 

* . • * 

h* 


PRCHARI l)=PPGHAR«2i 


CALL PLA020(2t I,PCHAR( I 1 1 S I NOE X « T # SO » T it) f TCNQ) ,QMIN f 
QMAP, SUBT » FLOY t T ITLA* IERR) 

CALL > PL3 6 0 ( SI NO EX f TEMP *T» TIL I * T ( NO) # SUB T » S Q . QM I N * QHAP, FLDYtT I TLA , 
PRCHARI 1 ) ) 


21 ♦♦♦♦♦♦■♦♦CONTINUE 


• ♦ ♦ . 

♦ * IF * . T 

♦ 1ERR.NE. ♦♦♦♦♦ 

* l . . . . * 

hV 


GO TO 19 i 


FORMAT 690 FORMAT I • »*18A4I 


C OBTAIN THE DIFFERENCE BETWEEN THE OBSERVED AND SIMULATED MAX FOR DAY 


D IFF S= PE AKS ( D-QMAX 
DIFFSA =0 IFFS 


• ♦ * . 

* * IF * . T 

♦ DIFFS.LT *♦♦♦♦ 

*.C. 0 * 

l\' 



| DIFFMP = I D IF FS A/QMAX ) *100.0 

” I " 


C OBTAIN THE DIFFERENCE BETWEEN THE OBSERVED AND SIMULATED PEAKS 


| D IFFP=PHRS ( 1 I-PHRO 
I DIFFPA =D I FF P 


. * IF ♦ • T 

* DIFFP.LT ♦♦♦♦♦ 

♦ •0 * 

♦ . .• * 

it' 


DIFFPA--DI FFP 


| D1FFPP =(DIFFPA/PHROI *100 
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C CCMPUTE DIFFERENCE: AND ^DIFFERENCE IN RUNUFF 


7 "dTffr=sum 7 i I-SSUM 7 

FoIFFRA -dTfFR 7 


. . * * . 

• ♦ IF ♦ . T ' DIFFRA=-DIF 

* DIFFR.LT ♦♦♦*♦ 

♦. 0.0 * 

* . . ♦ 

F I 

♦ ♦ f f ♦ ♦ 4 fff ♦ 



| .01 FFRP - ( D IF FRA/ S SUM ) * 100. 0 

7 ~ 


COMPUTE 01 FFERENCE BETWEEN FORCAS TEDCWORS TCA5 E PRECIP 


DIFFPR * APR EC ( I ) -APR EC ( 3 ) 

difpp=diff°r/aprec(i moo 


♦ WRITE (6,7001 
f (TIT LEM) ,1=1,18) 


. * IF * . T 

♦ CGNOPTM *♦♦♦♦ 

♦ 5 I.EQ .2 ♦ 

■ ♦ • 


GO TO 729 


*>, - FORMAT 700 FORMAT € • 1 • ,18A4» 


♦ WRITE ( 6,710) 
♦ MSBOIC 




CASE' • 1 OX | ‘NO PRECIP' ,10X, 'FORECAST', /I 

♦ ■* . .. . . . 

♦ 00 LOOP TO * 

♦♦♦♦♦+♦♦+♦♦ STMT # 71 ♦ 

♦ ♦ 1=1, MAXI ♦ 

* ♦ 


FORMAT 710 F0RMAT(63X, 'TABLE* » IX 
t'ONE' , 3 X, • FOR EC AST RUN * , / ,6 AX , A A » l OX. • HOP ST 


> ♦ WRITE (6,711) i.*J 

♦ * MPCAY 1 I ) , ( T MPRCC ( I ,K ) , K= 1 , 3 ) » ( TMQF (I ,K ) , K = l, 3 I » > 

■ ■ *■ y: 


' > C -180 


♦ ♦♦ ♦ 


(TMIF(I*K)»K=l*3),(TMBF(I,K), K»l * 3 ) * t ST MROS( I*K),K=1»3) . 

FORMAT 711 FORMAT (6 AX* I 2, 2X* 'PRBC IP • 
«8X*F5.3,2( l$Xf Ft>*3) » / *68X* ' SUR R/n»,7X, 
F5.3,2( 15X.F5. 3) , / ,68X,'INT FL' , 8X ,F5 .3,21 ISX.F5.3 )',/,6BX , 

•BASE FL‘,7X,FS.3,2U5X,F5,3|,/,fc8X. , SIM R/O' ,3X,F7. l,2( 15X,F7.1), 


71 ♦♦♦♦♦♦♦♦CONTINUE 


♦ WRITE 16,7001 
♦ (TITLE! I). 1=1.181 


♦ WRITE 16,7121 


FORMAT 712 F0RMATI63X, 'TABLE', IX, 
•TWO' ,3X, 'FORECAST RUN' , / ,43X, 'WORST CASE', 
1CX, 'NO PRECIP' ,10X,' FORECAST' ,1 OX, *0 IFF • ,8X , 'XO IFF',/) 

♦ +_ wrTtT _ 7677 I IT - ~ 

♦ (PEAKS! I ), I = 1 *3 ) ,DIFFS» DIFFMP ♦ 

♦ ■ ; ♦ 


FORMAT 713 FORMAT ( 3 IX, • PEAK <CFS>» 
,3X,F7. 1, 11X,F7. I, 11X,F7.1,8X,F8.2,8X,F5.2» 


//> ^ j ... »3 

• '♦* WRITE(6,71AJ 

♦ (PHRS ( l ) » 1 = 1 * 3 ) *01 FFP, DIFFPP 


♦ WRITE (6,71*9) 

♦ (SUM (11,1=1,3) , DIFFR , 0 1 FFRP 


FORMAT 714 FORMAT < 31X, • PE AK (HR I • ,tX 
’,.13 , 1 5X,J3 , 1 5X, I 3.12X , 13, 10X,F<5.?,/ / ) 

♦ : 

♦ i 


_ _ ,FQRMAT 719 FORM AT ( 31X , • R/O (IN)*.9X. 
F5.2,I2X,F5.2,12X,F5.2.12X,F5.2,10X,F5.2, 


♦ WRITE (6, 721) 

♦ ( APREC II),I=1,3),DIFFPR,DIFPP 


F5.2) 


FORMAT 721 FORMAT ( 3 IX ,* PRECIP (IN)* 
,2X,F7,3,11X,F7.3,11X,F7,3,8X,F8.3,8X, 


♦ WRITE (6,700) 

♦ - (T ITLE( 11,1 = 1,18) 


♦ WRITE (6, 723) 
♦ MSBDIC 


f C-181 






•SIMULATED* , 3X , • DI FF* , 3X, * * DIFF*,7) 

♦ ■ 

♦ WRITE (6 f .739l 
♦ CMAX, PEAKS U» ,OIFFS,OlFFMP 

♦ 

* . 


FORMAT 717 FORM U < 63X . • T AB^F* , IX, 
•TWO* • 10X, *PA$T R UM * , / MHSf RVuP* ,2X, 


I 


♦ WR I TE C 6 ,741 ) 

♦ PHRO, PHRSI 1) , 01 FFP ,D I FFPP 


FORMAT 739 FORMAT (1 IX , 1 PEAK < CFS I • 
* 23*, 2< FT . 1 , IX > , b 8 . Z , IX, f 5. 1 , / ) 

♦ 

♦ 

- ♦ 

♦ 

— + 


♦ WRITE |6*74D 
♦ SUM ( 1 ) , SUM (.21, DI FFR, D IFFRP 


FORMAT 741 FORMAT < 11 X, * PEAK <HR ) 
ll24X ! 23f9X 1 £3 f 9X* [ 3* IXrf 5.1,/) 

♦ 


♦ 


. FORMAT 743 FORMAT ( 11 X ,* R/O I IN) * 

] ,27X ,f 5 *2, 5 X, f 5. 2 Z 6 X t F5 . 2 , l X , f 5 . I , / ) 

♦ "write” 67 74 5) " ~ ♦ 

♦ APR ECU ) , APR EC Ml > 

♦ ♦ 

♦ ♦ 

^ FORMAT 745 FORMAT ( 1 IX ,« PREPCIP IN* 

23X,F7.3,3X,F7.3> 


♦ *”wRlTi~(677007 

♦ (TITLE(l), 1 - 1,181 


♦ 

♦ 


■ ■ 

♦ 

♦ 




♦ WRITE <6,747) 
♦ MSBD1C 


♦ 

■ !. f . 

. ■ 


DM 


[ FORMAT 747 FORMAT (63X, •TABLE 1 , 

IX, • THREE 1 ,2X, TP AST RUN* , / ,64X , A4, l^X, • SIMULATE 


I ♦ CO LOOP TO ♦ 

+ + + STMT * 87 ♦ 


♦ 1 = 1 , MAXI 
♦ 


-- — f 


: . , :■ >■ 

♦ I ♦ . — — ♦ 

♦ ♦ WRITE l 6, 749) . . ♦ 

♦ ! ♦ MPDAYI I l ,EMIFSI l, l ) , EMUZS( I , 1 1 « EMLZStl , 1 ) ,EMGWS + 

♦I +11,1), ♦ 

♦ £ . ; ,■ ; ... - 

♦ EMBFNXl X,1),EMS1AM(I,1), EMUZCI I , L) 

FORMAT 749 FOR M ATI66X, 12, 2X, • IFS 
*, IOX.F5.2, /, 70 X, *<JZ5 ’ , 10X,F5. ?. , / ,70X , 

♦ 

♦ 

87 ♦♦♦♦♦^♦♦CONTINUE 


V I ^ t I » T IVAf Wt ^ » J.WAf l r, 1 / 

*LZS • ,10X,F 5.2*/*70X» *GWS • , 1 OX, FS. 2, / , 70X , • 8ENX • , 10X ,F5*2 ,/* 
7CX,*SIAM**lOX,F5«2,/ ,70X,*UZC • , 10X, F5 .2 , // ) 






SUBROUTINE LABELS (BCDX.fiCDY, IUF, IERRI 


CCMHCN/GSPD/WORK ,GSPl 

, UNITN 

,12250 

, I A TN 

, UAR C A 

. I ii 

NULLV 

, IGDSC , IP TNOW 

rPAXPf 

♦ I P T 

, l SYM 

v RwUPK 1 

. 1 , ' s 

IGDS4 

,!GnS5 , ICDS6 

, I DSP 

, RU 

, H S P B 

i HSPL 

» ' s 

VSP0 

, VS PL , NOUT 

t NXD 

,NYD 

t X S 17 E 

t YSIZE 

, i- 

XLL 

, YL L , XUK 

, YUR 

, XT IC 

• YT IC 

, XDVAL 

; ■■ s 

YDVAL 

, IKEY! , I KEY 2 

, IKEYB 

, IKEY4 

, A X 

, BX 

f 

AY 

i BY , YLPOS 

? 




1 

LOGXSW. LOGYSW.NPTF 

t NRGF 

, ERRHD 

, FA 

,fb 

f |) 

FC 

, GMGDE 1 , GSP IN 

, DUM 

, I RECAL 



ij 

LCG I CAL* 1 

GSPIN, DU M( 2 ) 





li 

INTEGER+4 

PTLID(3)/»PL0T» 

NO • 

i V 1 

/ 


V 

INTEGER** 

EDVAL ( 3 ) , ZERO! 3)/' 

V, • 0 

S • 

'/ 

X- 


INTEGER** IOF( 18 ) , BCOX < 1 8 ) , BCDY( 18 » , BCD Y2 1 72 > 

REAL*8 DYDVAL,WQRK(36) 

REAL** XT IC ( 6) , YT tC (6 ) .XDVAL ( 6 ) . YD V AL ( 6 ) 

INTEGER** UNITN • 0 AREA i NULLV ( 1 1 • G SP 1 
. ICGICAL*! FA,FB,FC,GMODEl 
LOGICAL*! LOGXSW iLOGYSW, NPTP, NRGF, ERRHD 

EQUIVALENCE ( RWORK! , RN > , I l SYM, IRNO) 

I : i 

CREATE PLOT TITLE LABEL 

J. ] ^ 

I ! ICNT =IFIX(XSI7.E/HSPB) + 5 7 

I R N =XLL-5.*HSP9 _ I 

CALL PTEXT ( I GOSC . I OF, I CNT .NULLV, NULLV, 1 ,RN ,YUR +5.*VSPB) 
CREATE X AXIS LABEL ELEMENTS 


CALL PTEXT ( I GOSC, BCDX, ICNT, NULLV, NULLV, 1, RN, YLL-3 ,5*VSPB ) 
CREATE Y AXIS LABEL ELEMENTS 


CALL PLOTL t BCOY »BCDY2, 72, IRNO) 
t I 


RN =YUR*6.*Vf.?‘B 

IRNO = M I N 0 II R NU , I F 1 XI V S IZE /VSPB) 

+5). :•■■■■■ i r 




♦ DO LOOP TO + ' 

♦♦♦♦♦++♦♦♦♦ STMT # *0 - .... . ■.« ...... 

♦ ♦ I = 1, IRNO + ^ 

♦ ♦ + ... 

: I ■ . . . 

♦ 

♦ | RN =RN-VSPB | 

♦ „ 

♦ I 

♦ 

♦ CALL PTEXT ( I GDS C, BCDY2 ( 1 ) , l , NULLV., NULL V, 1 ,0.0 .RN) 


40 ♦♦♦♦♦♦♦♦ CONTINUE 


. * * . 
• * IF 

♦ IERR .EQ 

*. 2 

♦ # 4 

f I ’ 


T 

♦ 


GO TO 70 


€-186 


m 


I 


C CCNVERT Y DIVISION VALUES TO EOCDIC FORMAT AND CREATE 
C THE TEXT ELEMENTS NECESSARY FOR DISPLAYING 

I " 

♦ 4 - 

4 DO LOOP TO 4 
♦4444444444 STMT # SO 4 

4 4 I - 1 » N YD 4 

: * i * 

♦ T DYDVAL =YDVAL(U ’ I 

♦ - — 

♦ CALL TC3(DYDVAL,ll,EDVAL> 

♦ 

50 ♦♦♦♦♦♦♦♦CALL PTEXT Cr.JDSC,E0VAL,ll,NULLV,NULLV,l,XLL-13.*HSPB t YTIC( I ) ) 
C CCNVERT X 01 VIS ION VALUES TO EBCDIC FORMAT AND CREATE 


c the Text elements necessary for displaying 

• . ; • ; 

4 + r 

+ DO LOOP TO ♦ 

♦♦♦♦♦♦+♦♦♦♦ STMT ¥ 60 ♦ 

♦ ♦ 1=1, NXD ♦ 

♦ ♦-- ♦ 


i .) 


| DYDVAL 4 XD VA Li I ) 

CALL TC 3(0 Y0VAL»9»E OVAL) 


• * ♦ « 
. * IF 

* XDVAL ( I ) 

* .NE. 0.0 

^ • 4 

FlV 


T 

*+♦•*■♦ 

♦ 



EDVAL(I) =ZERO(l) 
EDVALI2I = ZERU 121 
EDVALI3) =ZER0I3) 


60 ♦♦♦♦♦♦♦♦CALL PTEXT ( IGOSC»EOVAL » St » NULL V, NULL V, 1 , XT I Cl I )-6.*HSPB, 
YLL- l . 5*VSPB ) 

C CREATE PLOT ID " ~ v-; 


CONTINUE 


=XLL^(XSlZE/2.-3.*HSPBI 


AC-187 


RETURN 


o o 


SUBROUTINE I 
C 

c 

c 

c 

I 

i 

c 

c 

c 

c 

c 

c 

c 

' c 
: c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 


L4020 ( NPLOT j MODE »NCHAR 9 NP « XVYVXMt N 9 XMAX 9 

YHI.NfYHAXf.BCDX ♦ BODY 1 1 OF » IERR ) 
THIS IS THE MAIN ROUTINE FOR GENERATING 2250 PLOTS 


’ INPUT PARAMETER CEFIMT ICN: 


NPLOT - CONTROLS NUMBER OF CURVES PER DISPLAY 
( NPLOT= 1 START NEW DISPLAY) 

CNPL0T=2 SUPERIMPOSE CURVE ON PREVIOUS DISPLAY) 
MODE - TYPE OF GRID 

» 1 X-L l NEAR AND Y -LINEAR 
* 2 X-LOG AND Y -LINEAR 
r " * “ * 3 X— LINEAR AND Y-LOG 

V ~ ’ "a 4 X-LOG AND Y-LOG 

i ■" : ■ . ■■■' ■ ' : : 

NCHAR - SELECTS PLOT SYMBOL TO BE USED 

- NUMBER OF POINTS TO BE PLOTTED 

- NAMES OF ARRAYS CONTAINING THE X AND Y COORDINATES 
XMINfXMAX - MINIMUM AND MAXIMUM VALUES FOR X COORDINATES 

YMI Nt YMAX - MINIMUM AND MAXIMUM VALUES FOR Y COORDINATES 

BCDXfBCDY - CHARACTER LABELS FOR X AND Y AXES 172 CHAR MAX) 

" ' ■ > 


NP 

X f jY 

i. 


"IDF 
, IERR 



- NAME OF 72 CHARACTER HEADING FOR EACH DISPLAY 

-ERROR INDICATOR. NOT SET BY THIS ROUTINE 

SINCE ERROR MESSAGES ARE Di SPLAYED ON THE 

22501 SCREEN. STANDARD MEANINGS ARE GIVEN BELOW. 

“ a l NORMAL RETURN / 

_ = 2 UNABLE TO CONSTRUCT READABLE GRAPH 
* 3 OFF- SC ALE PLOT POINTS ENCOUNTERED 


CCMMCN/GSPD/WORK 

9 GSPI 

tl)N I TN 

9 i 2250 

Via in 

tOAREA 


NULLV 

t IGCSC 

, IPTNOW 

t r*AXr T 

9 I PT 

:* f W»i 

9 i o i r» 

iHSPB 

, R WORK 1 


IGDS4 

, l C» U S 5 

, IGDS 6 

♦ insp 

tRU 

9 HS PL 


VSPB 

9 V S PL 

f NUUT 

,NXtV 

* N YD 

f XSIZE 

•YSIZE 


XLL 

rYLL 

f XUR 

, YUK- 

, XT I C 

9 YT ic 

9 XDVAL 


YDVAL 

t IKEY1 

, IKEY2 

. IKEY3 

t IKEY4 

9 AX 

9 BX 


AY 

♦ BY 

v YLPOS 

9 




" * 

LOGXSW 

» LOGYSW 

9 NPT F 

*NRGF 

9 ERRHD 

tFA 

• FB 

f 

FC 

yGMQDEl 

9 GSP I N 

« DUM 

« I RfcCAL 





LOGICAL*! GSPIN, OUM <2) 

l ' 

REAL*8 ERR 1 ( 6 ) / • NO POINT 1 , *S SPECIF 1 , I ED FOR • , • i OR MOrl • , 
•E CURVES • , • •/ 

REAL *8 ERR2 1 6) / • UNABLE T , f , 0 CON ST R* , 1 UCT READ* , • ABLE GRAS 
•PH ■, • •/ 

REAL*8 "PLTIQT2 )/•«< ERRO 1 , *RS >» •/ 

OIMENSIGN A ( 1 ) 

i 

INTEGER *4 UN I TN,0 AREA, NULL VI l ) , GSPI 
REAL*4 LGXMAX, LGXM l N, LGYMAX , L GYM IN 
REAL *4 XT IC (6) ,YT IC16) , X OVAL ( 61 , Y0V.AL.1 6 ) 

LOGICAL*! FA, FB, FC, GMODE1 

LOG I CAL* 1 LOGXSW tLOGYSW t NPTFf NRGF, ERRHD 
DIMENSION X (NP ) , YCNP) 

RE AL*8 BC(j>X ( 9 ) , BCDY (9) , IDFI 9 ) , WORK < 36) 

T-IIrr =1 ” 


GO I TO ( 10 , 20 0 ) , NPLOT 

CONTINUE 

CALL SHIFT! 


LOGXSW =. FALSE. 
IJOGYSW =. FALSE. 
FA -.FALSE. 
IPTNOW =0 
ERRHL)= • TRUE* 

NP TF =. FALSE. 
NRGF =. FALSE. 


♦ WR I TE ( NOUT , 1020) 

f I DSP , C l OF { I ) , I = 1 , 9 1 , NP LOT , MOD E , N CH AR , NP , 


XMINjXMAX,YMIN,YMAX 
CALL SGR I Ij) 

.. * * . 

. * IF * . T 
♦ XMAX .16 

*. XM IN .OR. YM AX .L* 

*E« YMIN * 

* • • * 

f T * 


GO TO !00 


GO TO i 20, 30,40,60), MODE 


C MODE = 1 X-LI NEAR Y-L I NEAR 


CONTINUE 


AX ^XS I ZB/ ( XMAX-XM I N ) 
BX -XLL-AX*XMIN 
AY *YSUE/ IYMAX-YM1N) 




Y C-189 


BY *YtL~4Y*YWIN 

XI NC - i X M A X- XP IN > / I FLOAT ( NX D ) - 1.0) 
Y I NC = (YMAX-YM IN ) /if 10 AT INYO) -1.0) 


160 | 


C MODE * 2 X-LOG 
C 


Y-UNEAR 


30 


CONTINUE 


I 


* • 


0.0 

♦ 


♦ * . 
IF 

XMIN .LE 


T 

* 


T 


GO to 100 


LGXMIN =ALOG10(XM!N) 

LGXMAX = ALGG 10 < XMAX ) 

LOGXSW = . TRUE. 

AX =X$12£/( LGXMAX- LGXMIN) 

BX =XLL-AX*LGXHIN 
AY =YSlZE/< YMAX-YMIN) 

BY =YLL— AY <=YM I N 

X INC = ( XMAX/XMIN ) ** 1 1.0/ < FLOAT (NXD) 

- 1 . 0 )) 

— T 

T'yT NC~S ( Y M AX- Y M I N ) / ( F L 0 AtTn Y 0 ) - l . 0 ) ~ 


160 | 


C 

C 

C 


MOCE * 3 X-LINEAR Y-LOG 


AO 


CONT I'NUE 


I 


• . * * . 

. * IF * . T 
* YMIN .LE ♦♦♦♦♦ 

*. 0.0 ♦ 

* . . * 

: r- * . * 

F 


GO TO 100 


LGYMAX = ALOG l 0 ( YMAX ) 

LGYMIN =ALOG10< YMIN) 

LOGYSW = . T RUE . 

AX =XSIZE/IXMAX-XMIN) 

BX =XLL-AX*XMIN 
AY =YSI ZE/ I LGYMAX-LGYMI N) 

BY =YLL-AY*LGYMIN 
XINC =<XMAX-XMIN) /(FLOAT! NXD)- 1.0) 
YINC = ( YMAX/ YM1N)**( l. 3/ t FLOAT (NYD) 
- 1 . 0 )) 




t ~ I— 

♦ 172 I 

♦ 

♦ 

♦ • 

♦ 

♦ [ 

70 ♦ rXDVALtl) =XDVAL( I-n>Xil 

♦ ■ 

♦ I 

♦ 

72 ♦ ♦ C C N T I N U E . 

— • — - — ; 

♦ DO LOOP TO ♦ , 
>+++♦+++♦++ STMT # 82 * 

♦ ♦ I = 2 » NYO ♦ 

■'■■'■■■■■•■* > 

,t I 

• • 

* . * . * . 

♦ . * IF * . T 

♦ * .NOT. ICG *♦♦♦♦ 

♦ *YSW * 

♦ * ■ . * 

■ ■ * • * 

I :j __ 

♦ T YDVAL ( 1 1 =YDVAlTT— I)*Y1 

- - - 

♦ ?82 7 
♦ ; 

4- 

♦ 

♦ : I 

80 ♦ 7 _ YPVAL (I7~=YDVALn~77+Yl 

* 7" 

82 ♦♦♦♦♦♦♦♦CONTINUE . 


TO 80 


I YDVAL ( I ) SYDVALI I-IMYII 


I YDVAL ( I I =YDVAL.n-l)4YIJ 


, * * 
IF 

(NP) 


1210 I 


1210 I 


CALL POINTS IX, Y,NP , NCHAR , IERR , XM IN , XI AX , YM IN , YMAX , PLT ID ) 
CALL LABELS ( BCDX,8CDY, I OF, I ERR I 
ENTER PLOT TITLS IN DICTIONARY . . . » . 

CALL CICTRYI IDF) 

I • r-- ■ . r - 

Tioi i 


1 y(d 


CCNTINUE 

. CALL PTE XT ( IGOSC , ERR2,48,NULL V , NULL V, 1,0.0 , YLL— 10. AVSPB ) 


cC-192 


♦ hRtrHNOUTf 1030) 
♦ IERR2 ( I ) ,l=lt6) 


I NRGF W.tRUEi 
I I ERR -2 


1211 | 


C CCMRCL PASSES TO STMT 200 WHEN NPlOT EQ 2 


CONTINUE 


♦ WRITE(NCUt.lOlO) 
♦ NPLOT, NCHARfNP 


• * * . 

. * IF * . T 

* NRGF *♦•+++' 

I F I * - 


— * 

, ♦ 
♦ 

♦ 

— ♦ 


GO TO 230 


■' • ' * • . . 

• * IF * T GO TO 210 

* NP »LE. *++** 

*0 

■ • * 

F | _ . V. . .,- ,.7 - y'' 

CALL POINTS (X, YfNPt NCHAR , IERR , XM IN , XMAX, YMIN , YMAX , PLT ID) 
CONTINUE 


. * * • 

. * IF * . T GO TO 230 

* GM 0'0-El ♦♦♦♦♦ 

♦ . • * 


CALL EXECUGOSC) 
CALL ATTEN 

7230 | 


i; Kbi 


♦*~MUTEINQUT,10 30) 
- { ERR1 ( I ) f 1*1,6 1 




. ♦ * 

* • * nptf ,f 

* I * 


* • J 

*♦♦♦♦ 

* ... 


GO TO 212 


| HP TF = .TRUE* _ __ __ I 

CALL PTEXT ( I GDSC,ERR1 ,48, NULL V, NULL V, i , 0. 0 , YLL-8. 5*VSP0) 


* * * . 

• ♦ IF * . T CALL PTEXT (I 

* ERRHO ♦♦♦♦♦! 4 f NUL LV v NULL V 

*•*,*•* 1 — — 

F I . ♦ 

I ♦♦♦♦♦♦+♦♦ ♦♦♦♦4 ♦♦♦♦♦♦♦♦ 44444444 


|- ERRHD=. FALSE.. 

- 

GO TO(8i,230),NPLOT 
CONTINUE . 


CALL PTEXT l ICDSC * PLTI 0 . L 
4tNULLV tNULLVV 1 .0. t YLL-5. 5 


!■ ( ) 


I I ERR = 1 


RETURN 


DUMMY ENTRY FOR TX4020 


ENTRY TX4020(NPLOT,A.NCHAR,NLINE,NC0L»IER) 


♦ VRITEIN0UT.2C00) 


RETURN 


FORMAT 1010 FORMAT ( * PL4020: NPLOT- • * I l . • NCHAR=* . 12. ' NP=* , 16) 

FORMAT 1020 FORMAT ( • PL4020: PLOT = * • I5.3X.9A8/ 10X. • NPLOT"' , ft * • MODE=*. 

II.* NCHAR= • » 1 2 » * NP=*,15,* XM1N=* *612.4. 

• XMAX= * . E12 »4 i ' YMIN** .E12.4, * YM AX=* ,612.4) 

FORMAT 1030 FORMAT!* <=**», 6A8) 

FORMAT 2000 FORMAT I * **** TXA020 
- « - . - ENTRY NOT IMPLEMENTED*! 


ORIGItfAB PAG0 J3 
0F POOR QUALITY 
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u 


SUBROUTINE PLOT 10 1 IDF) 


CCMKCN/GSPD/WORK ,GSPl ,UN!TN ,12250 , I ATN , DARE A , 
NULLV , IGOSC , IPTNOW.MAXPT ,1PT , I SYM ,RWORKl, 
IG0S4 , IG0S5 , I GUS6 ,1DSP ,RU .HSPB ,HSPL , 

VSPC , VS PL , NUU T , NXD ,NVO XSI/E ,YSIZE , 
XLL , YLL » XUR ,Y'JR ,XTIC ,YMC iXOVAL, 

YDVAL , 1KEYI , IKE Y2 , IKt Y3 , IKEYV , AX ,BX , 

• AY ,0Y , Yl. PQS * • 

— LOGXSMtLOGYSW * NPTF ,NKGF , ERRHD ,FA ,FR , 

FC , GMOOE 1 , GSP I N ,DUM , i KECAL 

INTEGER*-, STAR(19)/19*'****'/ 

LC'G I CAL*l GSP I N , OU Ml 2 ) 

INTEGER*^ GSP l, UN I TN, DARE A, NULLV (1 ) _ .. .. 

REAL*8 I OF (9), WORK (36) 

R£AL*4 TBLCCN15)/'TA0LS 'E OF',' CON' ,' TENT* ,' S •/ 
REAL*4 XT.IC16) ;YT IC16) , XDVAL16) , YDVAL (6 ) ,GLABl 16) 
LOGICAL*! LOGXSW.LOGYSW, NPTF, NRGF, ERRHD 
• LOG ICAL ♦ 1 F A , F B , F:C , GMODE l 
EQUIVALENCE (WORK! 11 ) ,GLAB(1 ) ) 

EQUIVALENCE ( RWORK 1 , Y, X, X INC, Y INC ) 

inin 


♦ writeinout.iooo) 

♦ (IDF (I), 1=1,9) 


INITIALIZE GRAPHIC SERVICES 


CALL INGSPIGSP1, NULLV) 

SPECIFY SUBROUTINE LINK/LOAD STATUS 

CALL SPECIGSP1, 1,30,37,38,40) 

CALL SPEC (GSP l, 2, l 7, -19, 53, -561 
INITIALIZE THE 2250 


CALL INOEVIGSPl.UNITN, J2250) 
INITIALIZE GRAPHIC DATA ! SETS 


11111 


CALL INGDSII2250, IGOSC, OAREA) 

CALL INGOSl 1 2250, I GOSS ^ 128) 

CALL INGDSl 12250, ICDS6 | 512) 

C SET NO SC ISSIOR ING FOR ALL OATA SETS 
CALL SSCIS( 1GDSC,3) 

CALL SSC1S( I GO S 5, 3) 

CALL SSCISl IGDS6.3) 

CONTINUE 

C COMPUTE X AND Y TIC MARK COORDINATES AND ADJUST GRID SIZE 
C PARAMETERS FOR TRUNCATION ERRORS 


1 'C-195 







Ui 


| X1NC = 1 XUR-XLt 1/ ( FLOAT I NXD) -l. 0) | 

1 XTICI1I aXLL 1 

1 

♦ — — - 

: ' ' 



10 


♦ DO LOOP TO ♦ 

♦ ♦♦++♦♦♦♦♦♦ ST VT 4 10 * 

4 ♦ 1=2# N*XO > 

♦ ♦ — - ♦ 

t i 

♦ 


xTictn -xrici i-mxiNC 

X U R = X T I C ( N X D ) 

XSIZF-XUR-XLL 

Y5 I Z6~C# 7*XSIZE 

YLL =YUR-YS IZE 

YINC - Y$ I Z£/ ( FLOAT (N YD) -l .0 ) 

YTICm i = YLL 


■ + 

♦ DO LG CP TO > 

♦♦♦♦♦♦♦♦♦♦♦ STMT f 20 ♦ 

4 4 1=2# NYD + 

♦ 

-4 V 

20 44>**4+*T" YTIG(I) - Y T I C ( I - t ) Y I NO 
YUR = Y T I C (N YD) 

Y$ I Z£= YUR-YLL 


I 


CREATE TEXT ELEMENTS FOR LIGHT PEN OPTION SELECTION IN IGDS5. 

[ 

T_X _ I 

: , : n r I 

CALL STPOSI tG0S5,X,4.5*VSPe> 

CALL PTEXT ( I GDS5,GLAB,20«NULL V, l KEY1*2 > 

CALL PTEXTI IGDS5.GLAD(6» .20, NULL V, IKEY3,2,X, 1. 5*VSPB> 

CALL. PTEXT I I SOS 5 ,GL AB I 1 1 ) , 12 , NUL LV , l KEY 2 ,2,X,3.*VSP3 I 
CALL EXECIIG0S5I 
CALL INCLj 1G0S5) 

CREATE DICT 1CNARY STATIC ELEMENTS IN IGDS6 


CALL SCHAMI IGDS6,2) . ; 

CALL STPOSI IGDS6, 1375. ,4095. I 

CALL PTEXT ( IGDS6 f TdLCONI II ,17,-1 ,NULLV,2I 

CALL PTEXT! IGDS*-,GLAB( HI ,12,-2,NULIV,2,3000.,0. ) 

CALL PTEXT I IGDS6,GLAB( IVI ,12 ,-3, NULLV.2 ,30C0. , 1 . 5* VSPL I 
CALL EXEC( IG0S6) 

CREATE ATTENTION LEVEL FOR 2250 


C 

C 


CALL CRATLI 12250, 1ATN) 

DESIGNATE THAT BOTH CHARACTER CODE AND COORDINATES OF CHARACER 


DETECTED BY THE LIGHT PEN ARE TO BE RETURNED BY RQATN SUBROUTINE 


: ■ V 


CALL MLPEOI I ATN,2,4,l> 

SET L.P. ATTENT ICNS AND LIGHT F.K. 0 


C-196 


if 







SUBROUTINE PLT ENC ( IDUM t * 

l I 


CCMMfJN/ GS PD /WORK 

,GSP! »UNl TN 

#12250 

:tl ATN 

» OARfA 




NULLV 

r IGOSC 

, I F'T NOrf ,MAXPT 

f I P T 

» l 5 YM 

f ft V# UR K. 1 




IGDS4 

, IGOSb 

,IGl)S6 ,IDSP 

f RU 

t MS PO 

» HSPL : 




VSPB 

tVSPL 

, NCU T » NXU 

» N Yt) 

fXSlZ E 

, YSIZE 



k 

XLL 

tVLL 

, XUR i YUR 

•t XT I C 

t YT IC 

« XDVA L 



• ri 

VOVAL 

♦ iKcYl 

,IKl-Y2 , IKEY3 

» I KEY4 

* AX 

t H X 



1 

AY 

tfiY 

, YLI’OS , 





•• 

LOGXSW 

tLOGYSW 

,NPTF »NRGF 

» CRRHD 

• EA 

tEB 

§ 



FC t GMIID61 # GSP IN #OUM v I Kb CAL »I PL AG 





LOGICAL*! GSPIN, DUMI2) 

REAjL*8 ENU ( 11/ • END . */»W0RK(36I 

INTEGER** GSP! ,UNI TN, NULL V I 1) . OAREA 
LOGICAL*! f A»FBf ECtGMOOEl 
LOGICAL* 1 LOGXSW»LOGYSW»NPTF,NRGF# ERRHO 
REAL** Xf | C ( 6 ) , YT 1 C < 6 > , XDVA L ( 6 1 . VUVALI6I 

MRiOAL =1 ” ™” I 

_____ — 

CALL SHIFT1 

CALL PTEXT 1 1 GD.SC , END , 4 , NULLV.NULLV, 1 , 1 87V. ,2047.) 
CALL EXECjlCDSC) 


1 IFLAG=0 
I YLPOS= 3796.0 
... _ 

CALL TMOr.VC 12259) 
CALL TMGSP (GSP 1 1 

RETURN 


FORMAT 


100 FORMAT (• ***END OF 
GRAPHIC PORTION* ) 


ENO 



; 1 


ROUTINE TO PRINT PL36D GRAPH 


WRITTEN BY C G HOOKS 


IBM HUNTSVILLE 


SUBROUTINE PR360 ( ARRAY I 


DIMENSION ARRAY I15AO) 
EQUIVALENCE (I ESI, A) 
INTEGER TEST /•CAYS'/ 


A 

= ARRAY I 1A93) 


Al 

= ARRAY ( 1491 ) 


A2 

-ARRAY! 1492) 


, A3 

= ARRAY! 1493 ) 


A4 

= ARRAY ( 1494 ) 




TEST FOR JUST PRINTING THE FIELO OF ARRAY WITHOUT SCALES 



T 14* *1515 

I JI ? 1520 


i 



t. 

• * IF * . 

:*( ARRAY ( I J1^ARRAY(JI >) 

* . • * 1 
* • . * J 

o 1 ♦ 1 



■ V; ■■ '■ . * . - 


j i a 2 r 

!A1 | 





1 

f CONTINUE 


4*?. i A . . i • . . • j 

<.;«V.* v ■; ' - " 



♦ 

♦ 

. ♦■ ■ ■ / ■ 

♦* WRITE 16, A3 ) 
ARRAY 

. 7 ”, 


. 1 

• • • • 

h ;: 

♦ 

♦ 

♦ 

- + 

A 

;; . ■ * . -w -.V ■ • 

- -J>r * 


i 


FORMAT 

43 FORMAT 

I2BA4) 


RETURN 





c 

CONTINUE ( 



. . * : *' ] 

, j y . .. . * 

•.’i 

♦ 

• ♦ •' 

* 

♦ # WRITE (6,6) 

I ARRAY ( l i t I * 

I t 56) 

'•77 :v ■» 7 - - - 

♦ 

♦ 

♦ 

♦ 

. •.*. : v ■ ...... ■ , 


1 

i 


format 

6 FORMAT 

I2A4, BX, 26A4I 


♦ WRITE (6,91 



♦ 



ms- — - * 




f 
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ORIGINAL' PAGE IS 
OP POOR QUALITY 





SUBROUTINE POINTS! X, V, NP , NCHAR , I ERR ,XMIN , XMAX, YM I N, YM AX , PLT I D) 

COMMON/ GS PD /WORK f GSPl ,UNITN ,12250 * I ATN ,Q1 
NULL V , l GOSC , IPrNOW.MAXPT , I PT ,ISYM ,Rl 
I GDS4 , IG0S5 , IG0S6 , IDSP ,RU , HSPfi ,H! 

VS P B , VS PL .NDUT ,NXD ,NYD ,XSIZE , YI 

XLL , YL L , XUR , YUK ,XT1C ,YTIC , XI 

YDVAL .IKEYL ,IKEY2 ,IKtY3 ,IKEY4 ,AX , t» 


12250 

♦ I ATN 

, OAREA • 

\\ 

I PT 

, I S YM 

v RWORK I v ' 


RU 

» h s p r> 

»HSPL , 

■ f. 

NVD 

,XSIZE 

, YSVZE . 

♦XDVAL ♦ 

11 

XT 1C 

• Y T 1C 

■ H 

IKEY4 

t AX 

• ax ♦ 

• ' ' 1 

ERRHO 

♦ FA 

♦ FB ♦ 

1 


, I REGAL 


AY , BY , YLP OS , 

| LOGXSWfLOGYSMfNPTF , NRGF , ERR HO ,FA , FB , 

FC tGMJOcl , GSP IN , DUM .IRECAL 

i.CG I CAL * 1 GSP I N , DUK! 2 ) 

(jtEAL^e ERR3 ( 6 ) / • OFF SCAL','E POINTS',* ENCOUNT • , • EREO *, 
i 2*' ' / , WORK ( 36) , PLT I 01 2 J 

I 

LOGICAL*!,, FA,FB,FC,GMODEl 

llCG I CAL* 1 LOGXSW jLOGYSW, OFSC , NPTF, NKGF , ERR HD 
INTEGER** UNITN » OAREA, NULL V I II, GSP l 

REAL** XPOS! 36 J j, YPOS ( 361 , XT TC I 6) , YT IC( 6 ) , XDVAL ( 6} ,YDVAU6» 
LOGICAL*! GFF 

OIMENSICN X ( NF I iYlN?) j. ' | 5 


ISAVE=NP 
OF SC =. FALSE, 



GO TO 102 


IPTNOW = I PTNCW+NP 


* ( IPTNOH-P.AXPT ) 




CONTINUE 


= NP-M P TNOW—MAXPT ) 
= •TRUE# 


♦ WRITE INCUT ♦ 20001 

• MAXPT 



102 I 1102 | 


W 









5s 


iJ 


C 

c 

c 


DETERMINE PLOT SYMBOL TO BE USED. A VALUE OF 0 IS RETURNED 


IF THE SELECTED PLOT SYMBOL IS # POINTS* OR A NON-D l SPL AYABLE 


SYMBOL • IN THE LATTER CASE •POINTS • IS THE DEFAULT • 
CONTINUE 


CALL PLOTS MtNCHARf ISYM) 


. * ♦ . 

. * IF * . T 

♦ ISYM • EQ ♦♦♦♦♦ 

♦ • 0 ♦ 

♦ . • ^ 




GO TO 5 


ASSIGN 2 TO M 

, ♦ — * ♦ 

♦DO LOOP TO ♦ 
♦♦♦♦♦♦♦♦♦♦♦ STMT M 3 ♦ 

♦ 


♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 


♦ K=i # NP ♦ 

♦ — -♦ 


| OFF - .FALSE • 


#■ K *. ’ * * i*/H 


♦, 

♦ 


-T- 


XPOS ( 1 ) =AX* ALOGl 0 ( X < K I ) 
♦ BX 


* * 

* IF 

LOGXSW 

F I V ♦ 

I ♦♦♦♦♦ +♦♦♦++* ♦♦♦♦♦♦ ♦ + ♦♦♦*♦♦♦♦ 


■ ■ .. . ♦ ■■ 


1 


J ••• ■ ♦ 


• . ■ 

■/ ■■■ . ♦ . ■ 

L. * 

IF * . T 

XPOSIl )=AX*X(K ) ♦ BX 

S-".. : ♦ 

♦ I 

.NOT. LOG *♦♦*♦ 


i . . ♦ 

*xsw 

♦ 


! . ♦ 




! . : ■ ♦ 


* . * 7 “ 


♦ 

f 

4 

♦ 
♦ 
♦ 
♦ 
. ♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 


♦ ♦+♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ ♦♦♦♦♦♦♦♦^* 


♦ 

♦ 


T 

♦ ♦♦♦♦ 


YPOSd )=AY*ALOGlO( Y (K) ) 
♦ BY 


. * * 

• ♦ IF 

♦ LOGYSW 

■ ^ • 

F j ♦ 

I ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ ♦♦+♦♦♦♦♦♦♦♦♦ 


♦ YSW 


. * - * . 
♦ IF 

■NOT. LOG 


♦ . 


♦ 

* 


T 

*♦+♦♦ 

♦ ' v. ■ ■ 


YPOS(l)=AY*Y(KI ♦ BY 


* 

F 1 ♦ 

I ++♦♦♦♦ ♦♦♦♦♦♦♦>♦♦♦♦♦ ♦♦♦♦♦■♦♦.♦ ♦.♦♦ 


i 



Continue 




• ♦ * . 

• ♦ ! F * . T XPOS U )*AX»AL0G10{ XCK) f 

♦ IOGXSW *4444 4 OX- 

* . . * 

^ ♦ . * ‘ 

P I ♦ 

14444 444444444444444444444 +4444 


• * * • 

• * IF * . T XPOS ( I )=AX*X 

♦ .NOT. LOG ♦+♦+♦ 

*xsw * 

; * . . * ; ... ■ ■_ 

p 1 ♦ 

| 4444 444444444 444444444 *4444444 



• ♦ IF * • T YPOSm=AY*ALOGLO< Y(K) I 

* LOGYSW *4444 4 BY 

♦ . „ * , * - 

p j “ r 4 “ 

( ♦ 4 4 + 444 + 4 44+ 4 4 44 4 44444 ♦4444 44 4 


. * * . 

4 * IF * . T 
* .NOT. LOG *4444 

*Y5W 4 

• ♦. ••.:.• f ,' * 

• • • 


YPOS(I*~AY*Y<K) 4 BY 


P 1 

I 4444 44444444444444 


444444444444 



CONTINUE 


♦ 

75 ♦ 

♦ : 

♦ ; 

♦ 

♦ 

♦ : 

♦ : 

♦ : 

♦ 

♦ ! 

4. : 

♦ I 

♦ . 

♦ ! 

♦ I 

♦ ; 

♦ I 

♦ 

♦ 

♦ 

• ♦ ; 

♦ 

♦ 

78 ♦ 

♦ 

♦ ' 

♦ 

♦ : 

. ■ ■ + . 

♦ 

• ♦ : 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ ; 

♦ ; 

♦ ; 

♦ 

. . ♦ ; 

♦ 

• ♦ 1 

♦ : 

♦ 

■' + : 

4- 

■' ♦ 

♦ \ 

¥ 

.. ♦ ■ : 

♦ 

♦ 1 

f 

¥ • 

■ ♦ v 

♦ 

♦ 

■ ♦ . i 

♦ 

79 ¥ 

¥ i: 

♦ 

♦ 

♦ ♦ 

♦ 4 - 
¥ 

¥ 

¥ 

72 ♦ 

♦ 

80 ♦♦♦♦♦♦♦♦CONTINUE 


I 


• * * • 

. ♦ IF * . T 

* XI K I .LT ♦♦♦♦♦ 

♦* XMIN • OR* X ( K ) .G* • 
XMAX ♦ 

* • * 

F 



• * * . 

. ♦ IF * • T 
♦ Y C K ) .GE *♦♦♦♦ 

*. YHIN .AND. Y ( K ) .* 

*LE • YMAX * 

♦ • . ♦ 

t t * 


CONTINUE 



1 

il‘ CFF = .TRUE . 



1 

i 

• ♦ # * . 




• ♦ IF 

* . 

T 

GO TO 79 

OFSC 

* • . • 
* * 

* 

♦ ♦♦♦♦, 


1 




1 OFSC =.TRUE. 



IZIZIIIi 


CALL PTEXT ( IGDSCt ERR 3 1 46 f NULL V t NULLV* 1 1 0. 0 » YLL-7* 0* VSPB1 


• * ♦ • 

♦ IF * • T 

ERR HD ♦♦♦♦♦ 

*4- •' • * 

♦ f * 

F I ♦ 

I ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


CALL PTEXT ( IGD SC*P LTl 
4 1 NULLV t NULL V« l,0.,YLL 


I ERRHO=. FALSE. 

“ xzz 

♦ WRITE (NUUT , 1000) 
♦ X ( K ) , Y (:K ) 


k- - AycT' V , J'.'J.A 


.1 • V 


! ¥? 

' ♦ 


GC TO M » (2*80) 


90 

100 


C 

c 


CALL PPNT ( I CDS C , XPO S • YP OS • NULL V t NUttV* 1 1 L V it U 

GC TO ( 100 » AO ) f N 

CONTINUE 

CREATE ZERO POSITIGN LINES IF ON GRAPH 
XfO)-BX AND YIOI^BY FOR LINEAR GRAPHS 


OF POOR QUALITY 


C-206 


r o 





SUBROUTINE PRECHK I DRGPM jDRHP *DRSF ,VWIN, SORT , NATRH ) 

C CHECKS PREC l P l T AT ION-STRE AMFLOW ANOMALIES AND ADJUSTS PRECIPITATION 
C WHERE NECESSARY 

DIMENSION DRGPM (36 6 1 , DRHP ( 366 * 2 <t ) • DRSP ( 366 ) 

INTEGER DAY, HOUR, SGRT 

i I 


AHP 

= 0.0 

NRH A 

ATRH 

RGPM 

= JRGPM ( 90 ) 

CAY 

= 90 ,. 

RMWR 

= 1.25 

-■'-,■ 1 ': 


I DAY =DAY+l 


. * * . 

. * IF * • T RMWR = 2.00 

* DAY .GT. 

* 200 .OR. VVi l N .GT.* 

* 750.0 * 

* . . * I 

* . * 

F j i ♦ 


I RFRISE = I ORSF l OAY l-DRSF I DAY- 1 ) ) 
I / VW I N 


y i 


* DO LOOP to *+ 
STMT n 101 f 


♦ ♦ HOUR 

t : ! 

♦ 

♦ ' •••-.■ : 

• * 

. . . * HOU 

♦ *. SGRT*i 

♦ ♦ : * • 

♦ * 

* ♦ . . : 

— + 

♦ : 

, ♦ | AHP = 

♦ 

«v i 

. ♦ 

♦ • ♦ * . 

♦ • ♦ IF 

♦ * HOUR .NE 

♦ : NRHA 

> ♦ . 

♦ ♦ , * 

♦ V F I 

♦ : 

♦ ... . 

>1 T RWRAttt 

— 

♦ 

; ♦ 

♦ 

101 ♦♦♦♦♦♦♦♦CCNT INUE 


♦^HOUR^= 1,24 ♦ 


RGPM - DRGPM { DAY ) 


: . * * . 

• * ” IF * • T RGPM x ORGPM 

* .HOUR .EQ ♦ 

*. SGRT +1 * 

* .• • * r _ 

1 i * 


| AHP = AHP f ORHP ( DA Y ? HOUR) ♦RGPM 


* . T 

* 

♦ 


GO TO 101 


| RWRAIN AHP 

7 ”"~ 


L AH L = °*° 

W. 


zm&tsn Kpwscw 



'FORMAT 2 FORMAT </5X» 1 FOR DAY* , 14* lXf ‘R AIN. ADJUST ME NT MULTIPLIER 1S‘,F8.4. 
IX, ‘RECORDED RAIN IS* ,F7.2) 

♦ * DC LOOP” 0 ♦ *■" 

♦♦♦♦♦♦+♦♦♦♦ STMT K 106 ♦ 

♦ ♦ HOUR = l.NRHA* 

♦ ♦-—--- — ♦ 

* ' I 

106 ♦♦♦♦♦♦♦♦OR HP I DAY, HOUR) = DRHP ( 0 AY, HOUR )*RAM I 


• ♦ * • • 

. * IF « . T ...... 

* NATRH .E *♦♦♦♦ 

♦Q. 0 ,* 

■ .T • • m 

♦ , * - 
F 1 


GO TO 108 


| NFRHA-NRHA* 1 


♦ DO LOOP TO ♦ 

♦ STMT H 107 f 

♦ ♦ HCUR - NFRHA 1 24 

♦ i 


107 ♦♦♦♦♦♦♦♦DRHP ( DAY-1 , HOUR ) = ORHPiOAY-1 , HOUR! ♦RAM 


• ♦ ♦ • 

. * IF * . T 

* DAY .NE. *♦♦♦♦ 

* m . V7 * 

u* ■ 


GO TO 100 


RETURN 
















. * * . 

. * IF * . T LDAY a 366 

* loay .fo *♦♦♦♦ 

*. 59 .ANO. DP Y .EQ.* 

♦ 366 * 

♦ * . * 

* * - 

F | • ♦ 



PRLH =RGPM*DRHP( LDAY»LHflUR) 

NH.OUR=HCURH 

NC AY =CAY 


• 4 4 ' • 

• 4 IF * . J 
* NHOUR •! *+♦♦* 

•E* 24 * 

* 4 ' — , 

F 1 * 



. I NHOUR = 1 


CALL DAYNXT (NDAY *DPY ) 

| PRNH =RGPM*DRHP I NOAY » NHOUR ) 


. * * . 

FF — - 

• PRH .GT. *♦♦♦+ 

* PRLK .AND. PRH .GT* 

-PRNH — ♦ -• 

■ 4 • . • 4 

■ F T: ' 



1104 | 


PE 4 P ( 1 ) = 0.10 
• PE 4 PC 2 ) = 0.2 B 
-PE 4 P 13 ) = 0.46 
PE 4 PI*) = 0.16 


1108 I 


. ♦ ♦ - 

• * IF * • T 

* PRH .LT. + 

♦ PRtH .AND. PRH ..LT* 

PRNH •* 

♦ . 4 * 

* . * 
f | 


^G 0 -TG~L 05 ~- — 


1106 | 


tC -212 


105 


PE4P ( 1 ) -0.23 
PE4PI2) =0.10 
PE4PC3) -0.16 
PE4P14I =0.46 


106 


107 


1108 1 


I 

v * # * . 
. * IF 

* PRNH *GE 

♦. PRLH 

* . * 

F 


T 

*+++ + 
0 


GO TO 107 


PE4P ( 1 ) =0.46 
PE4P C 2 1 =0.16 
PE4PI31 =0.28 
PE4PI4I =0.10 


1108 I 


! 


P E4P ( 1 ) =0,10 
P E4P ( 2 ) =0.2 8 
PE4P ( 3 I =0.16 
PE4P ( 4 ) =0.46 


108 ♦ DO LOOP TO ♦ 

ST MTU 109 > 

♦ ♦ KPRD = 1 *4 ♦ 

: | « 

109 ♦♦♦♦♦♦♦♦! PEAP(KPRD) =PE4P(KPRD)*PRH 

| PEP =PE4P(1 ) 


I 


•RETURN 


END 


•g 


* 0 - 21 3 


SUBROUTINE RTVARY I CTR I f SATR I , BTR I .CHEAP , NBTR l , MXTRI , NCTR T ,EXQPV 
LSHFT > T^CFS) 

DIMENSION AWS8ITI«9) ,BTIU C99 1 ,CTR 1(99 ) ,SATRJ(99) 
LOGICAL LSHFT 

, + 4 

♦ DO LOOP TO ♦ 

44444444444 STMT H 100 4 

♦ 4 K I A = 1 » MX TR 14 

♦ 4 .-----*-4.. 

: .... I. : 

4 I SATrT(KIA) =0.0 T 

4 *"* 

4 I ^ 

100 44444444*" AWSBIT(KIA) =0.0 
LSHFT= •FALSE • 

FMXTRI = M X T R I 
FN6TRI- =NBTR I 
FNPTRI = N C T R I 
TFX =T FCFS 
TFMRT=0.1*CHCAP 


. * IF * • T TFX = TFMRT 

♦ TFX .LT. 44444 

* TFMRT . * 

♦ . . * 

* * 

F i t 

1444444444444444444444444444444 


„ » * 

~.~* IF" '* • T RETURN 

* FNPTRI . 44444 

♦EC. FMXTRI .AND. TF* 

*X *EQ. TFMRT * 

.... _ ' . * . * 

* • * — 

F I 4 

I 444444444444444444444444444444 


| FNTRI=FNBTRI*(CHCAP/TFX)**EXQPV 
I - 40.5 


-* •* IF * .~ T ~ - FNTRl * 1.01 

♦ FNTRI .L *4444 

♦T. 1.0 ♦ 

♦ . • ♦ 

♦ . * 

F | > 

444444444444444444444444444444 


NCTRI=FNTRI 
FNSTRI =NCTR I 


. * * . 

. * IF * . T 

♦ FNSTRI . *4444 

*NE • FNPTRI * 

* . ♦ 

F I 

1 44444444444444 


LSHFT = .TRUE, 


444444444444444444444444444444 




• * ♦ . 

. * IF * 

• KB4 .or. 

* ncthi 

♦ . . * 
* . * 

F 


T 

*4444 


GO TO 102 


I j AhSBIT I KB2 ) = AWSB I T ( KB2 ) 4WSB1T 


KB 3 =KB3> 1 


. * * . 

V * IF * • T 

♦ 'KB 3. .LT. *44 44 

♦ NBTJU * 

* • * . * 

F 


GO TO 104 


. KB3 =0 
KB2 -KB241 


104 


1103 


,o5 ’ . . 

• ♦ IF ♦ . T GO TO 108 

* FNPTRI . *4444 

*GT. 98.5 * 

* . . * 

* . * 

f • - + _J_| + 

♦ DO LOOP TO 4 
44444444444 STMT H 101 4 

♦ 4 KB6 = 1 tNC TR I + 

♦ 4 4 

: i 

♦ f-; ♦ #1... . a. 

♦ 4 DO LOOP TO 4 

44444444444 STMT # 106 4 V- 

♦ 4 KB7 = 1 tKB6 4 

♦ 4 4 

J . I .... 

106 ♦♦♦♦♦++♦7 SATRI ( Kb6 ) = S ATR J (KB6 ) + AWSB IT C KB7 

♦ I __-CTRl(KB7l 

♦ - "J 

♦ 


1 I 


107 ♦♦♦♦♦♦♦♦CONTINUE 


I 


4 — — — — — — — — , 

108 4 DO LOOP TO Sf 

444:44444444 STMT § 109 4 

4 4 KB5 = 1 » MX TR [4 

4 4 r 

: l - - 

109 ♦♦♦♦♦♦♦♦7”cTRl7Kb5J =AhSBITIKB57 


I 


RETURN 


END 



SUBROUTINE SGRIC 


COMMCN/GSPD/WORK 

tGSPl 

t UN I TN 

9 1 ? 2 5 0 

♦ I A TN 

♦OAREA 


NULLV 

« I GOSC 

, IP T NOW 

9 HAXPT 

* I PT 

9 l$YM 

♦ RW0RK1 


IGDS4 

1 1 G0S5 

.100$ 6 

#IOSP 

♦ RU 

, HS PP 

9 HSPL - 


VSPB 

t V S P L 

♦ NCUT 

t NXD 

9 NYO 

fXSIZE 

t YS I ZF 


XLL 

♦ YLL 

» XU ft 

t YUR 

9 XTIC 

♦ YT IC 

♦XDVAL 


YDVAL 

# IKEYi 

, 1KEY2 

9 IKEY3 

♦IKEY4 

♦ AX - 

tI 3 X 


AY 

t BY 

,YLPOS 

9 





i LOGXSW 

, LOGYSW 

t NPTF 

♦ NRGF 

♦ERRHD 

♦ FA 

9 FB 

9 

FC 

♦ GM0DE1 

tGSPIN 

9 CUM 

9 I regal 





LOGICAL*! GSPINt DUMI2) 

INTEGER** UNITN »OAREA,NULLV( l ) »GSP 1 
REAL** XT IC ( 6) , YTIC I 6) , XDVAL ( 6) » YDVALI6 ) 

REAL*6 WORK (36) 

LOGICAL* 1 LOGXSW.LOGYSW, NPTF, NRGF, ERRHD 
LOGICAL*! FA,FB,FC,GMODEl 
ECUIVALENCE CRWORKl.DEL) 

C CREATE GRID BOX ELEMENTS 

CALL STPOS LI-GpSC » XLLt : YLL .) _ 

CALL PL INE I IGDSC ,XUR, YLL ) 

CALL PL INEI IGDSC ,XUR, YUR ) 

CALL PLINEI IGDSC, XLL, YUR) 

. CALL PLINEI IGDSC, XLL, YLL) 

T DcL =.S*VSPB 

C CREATE LOWER TIC MARK ELEMENTS 

CALL PSGMTI l GOSC , XT IC , YLL-DEL , XT IC , YLL+DEL .NULL V, NULL V, l ,NXD 
1,0, 1,0) 

C CREATE UPPER TIC MARK ELEMENTS ‘ 

CALL PSGMT I IGDSC, XT IC ; YUR-DEL , XT IC , YUR*DEL .NULL V, NULL V, 1 , NXO 

■ x- • .*• 1 , 0, 1 ,0 ) t . « 

.. C CREATE LEFT TIC MARK ELEMENTS , „ . 

CALL PSGMT I IGDSC .XLL-DEL, YT IC , XLL+DEL ,YTIC ,NUL.LV, NULL V, 1 ,NYD 
0, 1,0,1) 

C CREATE RIGHT TIC MARK ELEMENTS 

CALL PSGMTI IGDSC, XUR-DEL, YTIC, XUR*DEL,VTIC, NULLV, NULL V.l.NYO 

- - 0 , 1 , 0 , 1 ) - 



RETURN 






SUBROUTINE SHI FT l 


CCMMON/GSPD/WORK 

rGSPl 

, UNI TN 

,12250 

♦ I A TN 

♦0AR6A 

NULLV 

, IGDSC 

, IPTNCW 

fRAXPT- 

tlPT 

, ISYM 

, f\WHRK 1 

IGDS4 

, IGDS5 

, IGDS6 

, l DSP 

,KU 
, NYD 

, MS PB 

iMSPL ! 

VSPB 

, VS PL 

, NOUT 

t NXD 

, XS I ZE 

cYSIZE 

XLL 

• YLL 

t XUR 

, YU R 

,XTIC 

,YT IC 

tXDVAL 

YDVAL 

, IKEYI 

, I KKY2 

, 1 Kfc Y 3 

, IKEY4 

, AX 

,HX 

AY 

LOGXSW 

1 6 Y 

, LOGYSW 

, YLPQS 
• NPTF 

Jnrgf 

, FRRHD 

,FA 

t fb 

EC 

, GMODE 1 

♦ GSPIN 

, DUM 

, IRECAL 


LCGICAL*1 GSPIN, DURl 2 ) 

REAL** XTIC!6),YTIC!6),XDVAL!6),YDVALI6» 
INTEGER** UNIT N»OARFA,NULLV(l)*GSPl 
LCGICAL*l F A»F 8* FC>GMUDEl 
LOGICAL* l LOGXSW,LOGYSW,NPTr,NRGF,ERRHO 
REAL*8 WORK! 36 ) 

T'Iabsop =IABS( fOSP I+X ~ "" | 


# ♦ ♦ • 

• ♦ IF * • T 

♦ IRECAL . 

♦ EO. 0 ♦ 

♦ . . ♦ 

I I * 


CALL EXECt IGDSC) 

CALL BUFOUTt 12250, I ABSDP, IRC) 


• * ♦ . 

. ♦ V IF * . T 

♦ IRC .NE. *♦♦ + ♦ 

♦ C * 

* • . * 

tl* 




in i 


• ♦ * • 

• ♦ IF * . T 

* IRECAL . 

*E0. 0 ♦ 

^ • «r ~ ^ «r... !*?«*. 

t ; 

*♦ 

. * IF * . 

♦ CIDSP) ♦ . 


* . • * 

* t * 

0 * 

Tir “ 


GO TO 17 


~r-** 


CALL INCLI IGDS5 »NULLV» I KEY3) 
CALL ATTEN 

CALL OMIT! IGDS5,NULLV* IKEY3I 
CALL RESET! IGDSC! 

7~7osp”7Aesop ~~~ 


RETURN 


FORMAT 10*0 FORMAT!* BUFFER READ 
ERROR - R.C. a • .28! 


0U0l$M7 FAGS5 IS, 
OF POOR 


SUBROUTINE SNCMFLI BCOFSM, SPT WC£, SPM, ELOl F , DAY, SPBFL W» XDNFS , F FOR , 

FFSI *MRNSM*DSMGH» SDEPTH.STMD »PXC S A,HOUR * SAX * SlirRP «f)FRF I S t SQFRFI * 
AMFSIL *PRH* SPTW.TANSM* SPLW, SFMI), OFRF , WT A AM , WT4P M , ASM, AS MRG* 
SASFX, SARAX, DMX T * DMNT » RI CY» F I KRI 

C SNOWMELT CCKPUTA T ICN 

DIMENSION DMNT ( 366) ,‘DMXT ( 366 ) , F IRRC15) ,RI CYI37 1 
INTEGER DAY, HOUR 
REAL MHSM.KMNSM 

I V n ■ 

' . * * IF* * * . T GO TO 100 

• (DAY .NE 

*. 2741 .OR. I HOUR; .* 

*NE. II j * 

* . . * ' ____ 

f I * *** 


• SPLW =0.0 
XELR =0.0 
SOSC =0.0278 
FOSC =0.0 
FT A =0.0 
R I CD =0.0 
KRIA =0 


it ) 


CCNTINUE 

C CALCULATION OF HOURLY AIR TEMPERATURE 
C DHXT CURRENT DAY, DMNT NEXT DAY 


. ♦ * . 
. * IF 

♦ HOUR .NE 

*. A 

* . 

rr 


T 

*44+4 

♦ ■' • ■' ' 


-GQ- TO -iQl 


FDSC =0.0 
FT A = FDSC 

WT4PM=DMXTr0AY)-A.0*ELDIF+(XELR 
/4 .0 ) *0 . 7*ELD I F 


. ♦ IF ♦ . T 

* HOUR .EQ *+4*4 

*. 10 * 

♦ . . * 

* . * 


SDSC = -0.0278 


F I 

1**44 44 




. * ' * • 

. * IF * . T SDSC 0.0278 

* HOUR .EQ *4444 

♦ . 22 * 

F I ♦ 

I ♦ ♦ 444 44- 4- 4 4 4 4 4 4 44444+4+ ♦ + + +++ + + 


. * * . 

. * IF ♦ . T 
* HOUR .NE *4444 

*.16 * 

* . • * 

t f. V * 


CO TO 102 


c* ' i C— 21 9 
















GO TO 128 


• * IF * • T 

• PRHtSPTU ♦♦♦♦♦ 

* .EQ. 0.0 * 

* . . * 

1 t\' 


. * If * . T 

♦ HOUR .NE *♦♦♦♦ 

♦.24 ♦ 

♦ . . * 

* • ♦ 



C CALCULATION OF TIME AGING OF THE SNOWPACK 


| SAX = SAX+l.G 


• * 4 • 

. * IF * . T 

♦ - SAX .GT. . *♦♦♦♦ 

♦ 15.0 ; "*' 

* . . * 

tr r ... ... 


SAX - 15.0 


. * * * 

. * IF * . T 

* TEH .GT. 

*32.0 * 

f i * 



C PRECIPITATION IN FORM OF SNOW - CALCULATE INTERCEPTION DENSITY OF NEW 
C SNCW COMPACTION* ANO SETTLING SNOW PACK AND THE EFFECT ON ALBEDO 


.. m . 

. * IF ♦ . T 

* PRH . LE. **♦♦* 

♦C.O ♦ 

* . . * * 

* . ♦ 

F I 


GO TO 110 


PRH = SPM*PRH 
HSF =PRH 
ASM = ASM + HSF 

PRH =(1.0-1 FFSl*FFORH*‘PRH 
HSFRG=PRH 
ASMRG=ASMRG*HSFRG 
FS It =FFS l*FFOR*HSF 
AMFSIL = AMFS 1 L+F S I L 


. ♦ * . 

• • IF * . T 

* TEH .LE. *♦♦♦♦ 

♦ C.O * 

••••;:* • ♦ •: 

f I 


GO TO 106 


VDNFS - XDNFSM (0.0 1 ♦TEH ) *42 1 
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) 


106 

107 


i .■) 


108 


109 

110 


1 107 | 


I 


| ONFS =XDNFS 

„r~ 


. * ♦ . 

• ♦ IF * . T 

* SPTW .GT ♦ 

C.O .AND. SDEPTH * 
-••GT# SPTW * 

* • . ♦ 

♦ . t 


SDEPTH = SDEPTH - ( < PRH 


SDEPTH/ 


F i ♦ 

H/SPTW) * ( ( 0. 1Q*SDEPTH!**0 .25 U 


SPTW =SPTU>PRH 

SDEPTH = SOEPTH+I PRH/DNFS) 

SASFX= SASFX+ PP H 


I 


• ♦ * . 

• * IF ♦ 
• SASFX . G 
*E. PXCSA 

* • . * 
♦ . * 

F 


T 

♦ 


GO TO 108 


1109 I 


I 


| SAX — 'SAX-rl'. 0 



• * IF ♦ « 

<•*..' SAX .LT. 

* 0.0 

♦ . . * 

* 1 ♦ 

F ] ♦ 


| SASFX+ S A SFX- PXCSA 
“ - 


| PRH =0.0 


I 


CONTINUE 


1 


I 


. * * . 

. ♦ IF ♦ . T 
* SPTW .LE 
*. 0.0 * 

* , « ♦ 

t\ * • 


GO TO 127 


SEaSCNAL MELT FACTOR ADJUSTMENT 

\__ 

I FCAY =OAY 






( I ) 


111 


112 


KAAO =KRIA 

KR I A “ 1 • p*( FOAY/ 10.0 ) 


• ^ * • 

• * IF * * T 

♦ KAAO *NE *♦♦+♦ 

♦. KRIA * 

♦ . . * 

* . * 


RICO * R ICY (KRIA) 


♦♦ ff ♦ ♦ f ♦ * ♦++♦ ♦♦+♦♦>♦♦♦ it f ♦ ♦ ♦ ♦ ♦ 



1114 | 


CALCULATION OF NEGATIVE MELT 

I ; ■ ' 

♦ . 


. * F * 

* tansm .l 
. *E • 1 1*5 * MRNSM 

♦ . . ♦ 
* • * 


T 

* ♦♦♦ ♦ 

.. 


GO TO 112 


F 


TANSM = TANSM ♦ U5.0*M 
RN-SM) ♦*{ 1.3 * 2.0* 


. * * . 

. * IF ♦ . T 

* TANSM .L *♦♦♦♦ 

*T • 1.0 ♦ 

* . . * 

* . * 

F 1 ♦ 

| ♦ ♦ + + + + ♦+ + ♦ + ♦ + ♦'♦ + + ♦♦* + + 

TANSM)), , , , 


1113 I 


i 


| TANSM=TANSM+MRNSM 


113 



. * * . 

. * IF * . 

* TANSM .G 

•T. 0.08*SPTW 

* . . * 

* 1 * 

F I ♦ 


112 ? I 


C EFFECT OF RAIN ON ALBEDO 

ORIGINAL PAGE IS 
OP POOR QUALITY. 
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2^1 , 


IK ) 


■ I] I 


■; { 




ww 


m \- 


1U 


115 


| SAR AX® SAR AX*-PRH 
_ 1 


■ ■ ■ 

* 

. * * . 


1 

* IF * . T 

GO TO 115 

j i * 

SAR AX .L *•+♦♦♦ 

■ * ■ . ... 

i j . *T. 

;S ; : .. 

PXCSA/2.0 * 

* . * 



| SAX = SAX+ 1 . 0 


T 

* + + + + 
♦ 


SAX = 15.0 


. * * . 

. * IF * 

♦ SAX .GT. 

* 15.0 

* . . * 

* . * 

F I * 


j SASFX=0 • 0 


SARAX= SAR AX- (PXCSA/2.0) 

I 


M 


• * * • 

• ♦ I F . T 

* TEH .GT. *+>* + 

* 32.0 * 

* • . * 

F ♦ 


HSM - (TEH -32.0) ♦BUDFS 


HSM = 0.0 


• • ^ •: 

. * IF * . T 

♦ TEH .LT. **++*l 

* 32.0 _ * 

♦ . . * 

*, ♦ ; - 

... F T ' ♦ 

]>++♦ ♦♦+♦*+♦>+++♦++++♦+++ +♦+++♦ 


j HSM =HSM*RI CD 


KAA =1.0+ SAX 


• * * • - 
. ♦ IF * . T 

♦ SAX .LT. ♦ ++++ 

* 15.0 ^ ♦ 

* . * — * 

FI + 

♦ + +++♦♦+♦ + +++ + ♦+ + +++ + +++++♦ + + + 


HSM = HSM*(1 .0 - * ( (1.0 
FFORKFIRR (KAA) ) ) 


HSM = HSM* (1.0 - ( 
- F FQ R ) *F 1 RR ( 1 5 ) J I 


. * * . 

. * IF * . T 

♦ SAX .EQ. *♦+++ 

* 15.0 * 

♦ . . * 

F | ♦ 

j ♦ + ♦+ ♦♦++++++++♦>++♦++++++ ++++♦ 


(1.0 


• ♦ * . 

. * IF * 

* PRH .GT. 

♦ C.O 

* . . * 

F T * 


- T 

*+♦+ + 

* 


HSM = HSM ♦ < (TEH 
0) *( PRH/ 144.0) ) 


"4 32 « 
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1 










f G 


C CALCULATION OF DENSITY AND ADJUSTMENT OF OVERLAND FLOW TIME 

! _ — . , 

. * * . ; , 
. * IF * . T GO TO 128 

♦ SDEPTH . *♦♦♦+ 

*LE. 0.0 .OR. SPTW .* 

*GE . SDEPTH * .•••• 

* . . * 

l I * ™ * 


STMD = f S P T W+ S P L W ) / S D EP TH 
SFMD = SPTW/ SDEPTH • 

OFRF -0.33*$0FRF 


• * * • 

. ♦ IF *. . T OFRF a 11.0 - (SPTW/SPT 

* SPTW .LE WCC )*0. 67) * SOFRF 

*• SPTWCC * 

♦ . . * 

* , * — 

F I '* ♦ 

I ++++++ +++++++> ++++++++ 


OFRF = SOFRF 


: . ♦ ♦ • 

• ♦ IF * . . T OFRF = SOFRF 

* SOEPTH . ♦ 

♦LE. 0.0 ♦ 

• * 9 - > . ♦ - . 

♦ f ♦ — — 

F I ♦ 

I ♦ ♦♦♦♦ ♦♦♦+♦♦+ + ♦♦♦♦+ «•■»•■►♦ +++ + + + + + 


| CFRF1S =SOFRFI*OFRF/SOFRF 


C CALCULAT I CN OF GROUNDMELT 

I 


. ♦ ♦ . 

• ♦ IF ♦ . T RETURN 

♦ HOUR .N 

♦ E. 12 .OR. SPTW .LE* V 

♦ ., 0.0 ♦ 

♦ • . ♦ 

♦ . ♦ 

/ v F | ♦ 

I + ♦♦♦4 + ♦♦♦♦♦4- + + ++♦♦+♦♦+++ 


* * . 

. ♦ IF ♦ 

♦ ; SPTW .LE 

♦. DSMGH 

♦ . . ♦ 

1 1 • 


;i”*i 


GO TO “129 


I PRH =PRH+ DSMGH 
I SPTW =SPTW-DSMGH 


. ♦ * . 

• ♦ IF * • T 

♦ STMD .LT * + ♦♦♦ 

♦. 0.50 .AND. SDEPTH* 

♦ .GT. 2 . 0 * DSMGH ♦ 

♦ . . * 

♦ . ♦ 


SDEPTH = SDEPTH - 


5 1. 

».0*OSMGH 
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RETURN 
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SUBROUTINE 

C 

C 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

t 

c 

c 

: I 

• f 

c 

c 

c 

c 

t 


ST AT (R , $ j N, ARE A, MAXR, MAXS , SSQ , $ SO I , SUMO, 


SUMSQ, ME ANR, MEANS, VARR, VARS, CORCF) 


INTEGER UN- 
HEAL K (NT, S CN) * AREA, SUMS ,SUMR, MAXS • MAXR, S $ Q , S SO I , SUMO , SUMSQ 
REAL MEANS, MEANK, VARS, VARR, CORCF 
REAL TEMP, TEMPS, TEMPR , AS, AR, ASR 


INPUTS jS = ARRAY OF SIMULATED READINGS 
R * ARRAY OF OBSERVED READINGS 
N = NUMBER OF READINGS 
AREA - AREA OF WATERSHED 

OUTPUTS SUMS = SUM OF SIMULATED READINGS 
SUMR = SUM OF OBSERVED READINGS 
MAXS = MAXIMUM OF SIMULATED READINGS 
MAXR = MAXIMUM OF OBSERVED READINGS 
SSQ = SUM SQUARED WITH WEIGHT OF 20 
SSQI = SUM SQUARED WITH VARIABLE WEIGHT 
SUMD = SUM OF (OBSERVED - SIMULATED) READINGS 
SUMSQ = SQRT OF SUM OF (OBSERVED - S I MULATED )**2) 
MEANS = MEAN OF SIMULATED READINGS . 

\ MEANR = MEAN OF OBSERVED READINGS . I 
VARS = VARIANCE OF SIMULATED READINGS 
VARR = VARIANCE OF ACTUAL READINGS 



CORCF = CORRELATION COEFFICIENT 









r 





♦ 

♦ • 

♦ 

■ ■ ♦ ; 

* ♦ 

♦ 

♦ 

♦ 

> 

. ■ ' ♦ : * 

I , 

■■. ♦ ■ ■ 

■■ . ♦ : 

♦ C 

♦ ; 

♦ 

♦ c 

♦ 

.: ♦ 

♦ c 

♦ 

♦ . 

»: | 

♦ . '" - 

♦ 

♦ 

100 ♦+♦♦♦♦♦> I 


TEMP -fLOW&T <TEMPS,TtWPR, WEIGHT) 
SSO ■= SSQ> F CM P *TEMP 
WEIGHT =AKCA*iO. 


. * * . 

• * IF * . T 

N .GT. 

12 • ♦ 

* . , . * 

? I * ■' 7" ♦ 

♦ mf + ♦ ♦ > ♦♦>+.»♦>>♦ + * ♦ fi ♦♦ 


WEIGHT = WEIGHT / 30 


T EMP - FLOWOI ( TEMPS , 1 E MPR # WE I GMT1 
SSOI = S S Q I * T fc: M P * T E M P 


COMPUTE SUM OF DELTAS & SUM OF DELTAS SQUARED 


TEMP ~AB S ( TEMPK ) - A B S < T E MP S I 
SUMD = SUMO+T EMP 


i 


SUMSQ- SUMSQ+ T E HP ♦TEMP 


I 


COMPUTE MEANS 


MEANS^SUMS/N 

MEANR=SUMR/N 


C 

C 

c 


COMPUTE SpRT( SUM (DELTA**2 ) 


I 


SUMSQ= SQR f ( SUMSQ ) 


c 

c 


I 


AS =0. 
AR -0# 
ASR =0* 
VARS -0* 
VARR =0. 


I 
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c 


l ^ 

♦ DC LOOP TO ♦ 

♦♦♦+♦♦+++♦♦ STMT # 200 * 

♦ ♦ I* It N ♦ 


( ) 


♦ 

♦ 

♦ 

♦ 

♦ 

• '4s ■■ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
♦ 
> 
♦ 
* 

♦ 

♦ 

♦ 

> 

♦ 

♦ 


♦ ♦ 

■ '■ ! -:l 


COMPUTE INTERMEDIATE VARIANCE £ CORRELATION COEFFICIENT 


I 


TEKPS=SUi-MEANS 
TEMP = TEMP S*TEMPS 
AS = AS + TEM P 

VARS -VAR S+T EMp 




TEMPR=R( I )-MEANR : 

TEMP =TEMPR*T£MPR 

AR =AR*TEMP 

ASK =ASR>TEMPS*TEMPR 


■r 


200 VARR = VARR*T EMP 


I 


COMPUTE VARIANCE £ CORRELATION COEFFICIENT 


VARS =VARS/(N-ll 
VAFR ^VARR/IN-l) 
CORCF=ASR/SQRT< AS*AR) 

RETURN 


ORIGINAL 1 PAGE IS 
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FUNCTION TABLE IX, V 9 N« VALX) 


DIMENSION XU), YU) 


SUBROUTINE TO PERFORM A TABLE LOOKUP AND LINEAR INTERPOLATION 


TEST FOR VALX OUTSIDE RANGE OF X TABLE 


CONTINUE 


VALX WITHIN RANGE OF X TABLE 


CONTINUE 


1 J 

=N/2 

1 

-4 


Z.i 

1 1 

-1 



~"T 


GO TO 10 



i 


- ’ - 

V--' 1 

. : . • i 

GO TO 20 

' ' : V " 




